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PREFACE 


This VS COBOL Conversion Guide is intended as an aid for the programmer 
already familiar with COBOL. The conversion process of an IBM card batch 
system to a VS interactive system is specifically addressed. However, many of 
the topics discussed in this guide are discussed in terms sufficiently general 
to apply to any non-Wang to Wang VS COBOL conversion. 


While the specific examples provided in this guide do apply specifically 
to an IBM-to-Wang conversion, many of the topics discussed, such as syntax, 
device considerations and file organization apply to any non-Wang to Wang 
conversion. 


Appendix A is a table of syntactical conversion considerations for the 
IBM-to-Wang VS conversion. Appendix B is a sample VS COBOL program 
demonstrating the use of figurative constants, FACs, DISPLAY AND READ, SHARED 
files and display picture record entries. Appendix C is a demonstration of 
IBM COBOL programs and the resulting VS COBOL programs after conversion. 
Appendix D is list of reserved words recognized by the Wang compiler, but not 
the IBM COBOL compiler, and vice versa. Appendix E lists the ASCII and EBCDIC 
collating sequences. 


This guide should be used in conjunction with the following VS manuals: 


Manual Wang Order Number 
VS COBOL Language Reference 800-1201CB 
VS Utilities Reference 800-1303UT 
VS Programmer's Introduction 800-1101PI 
VS Procedure Language Reference 800-1205PR 
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CHAPTER 1 
INTRODUCTORY CONVERSION CONCEPTS 


1.1 THE VS COBOL ENVIRONMENT 


VS COBOL is a programming language which is compatible with ANSI 
standard COBOL and IBM COBOL. The COBOL compiler is supported by the 
programming environment of the user-oriented VS operating system. The VS 
COBOL language, extended to support interactive processing, is supported by 
many VS utilities to edit, compile, execute, debug and link programs. Other 
utilities provide capabilities to generate formatted screen displays and 
create and maintain data files. 


The following is a list of major VS utilities with a brief description 
of their capabilities. 


EDITOR: allows the development and maintenance of source 
programs and integrates all the functions needed to 
create, edit, compile and execute programs. 


(See VS Programmer's Introduction.) 


EZCOBOL: provides default source and object file locations to the 
EDITOR and allows the operator to execute other VS 
utilities such as COPY and DISPLAY. 


(See VS Programmer's Introduction.) 


CONTROL: creates and maintains description files (control files) 
which contain the file characteristics and field 
attributes of any data file. 

(See VS Utilities Reference.) 


DATENTRY: creates and maintains data files conforming to the file 
characteristics defined by the CONTROL file. 
(See VS Utilities Reference.) 


LINKER: links two or more program modules into a_e single 
executable program. The VS does not require a link for 
a self-contained object file (a program file that does 


not issue calls to external subroutines) . 
Self-contained programs can be compiled and executed 
directly. 


(See VS Programmer's Introduction.) 


This second list contains a brief description of utilities and user aids 
that are mentioned in the text as being useful for the conversion programmer. 


CONVERTC: makes global text changes to COBOL source files by file 
or library. 
(User aid information is available through the 
International Society of Wang Users (ISWU)). 


COPY2200: copies data files from a Wang 2200 diskette to a VS 
library, automatically converting from 2200 format to VS 
format or copies VS files from hard disk to diskette, 
automatically reformatting them to 2200 format. 

(See VS Utilities Reference.) 


TAPECOPY: copies data from 9-track tape to VS disk, converting 
record format and file organization, if necessary. 
TAPECOPY can also copy files from disk to tape, from 
tape to tape or from disk to disk. 
(See VS Utilities Reference.) 


TRANSL: converts EBCDIC to ASCII or ASCII to EBCDIC. 
(See VS Utilities Reference.) 


3740 Diskette converts a 3740 formatted diskette file to a Wang TC 

Compatibility formatted file accessible by the Wang 2200 series. This 

software: utility is executable only on the Wang 2200 series with 
a 3740 compatible diskette drive. The information on 
the TC formatted diskette can be transferred to the VS 
by the COPY2200 utility. 


(See 3740 Diskette Compatibility Software Manual.) 


TCCOPY: enables the VS system to imitate the protocol of an IBM 
2780/3780 and receive and transmit data between two 
systems over telecommunications lines. 

(See Data Communications User's Guide.) 


In addition to these utilities, the Wang VS Command Processor of the 
operating system enables the user to: 


execute a program or procedure, 

set default constant values, 

examine device status and volume contents, and 
rename, scratch and protect files. 


(See VS Programmer's Introduction.) 


The American National Standards Institute (ANSI) standardized COBOL 
after many vendors had developed their own version of the language. The 
standard was determined by taking the best options and processing methods of 
each of these major vendors. Most vendors now use this standard to measure 
their versions of the language. The standard, however, is always being 
revised for improvement as _ better COBOL mousetraps are built. In attempting 
to improve it and test other verbs and usages which could be incorporated into 
the standard, each vendor offers extensions to its particular version of the 
language. These extensions represent the major differences between VS COBOL 
and other vendors' COBOL. 


Wang VS COBOL supports 1974 ANSI Level 1 nucleus elements with many 
Level 2 features. Most Wang extensions to the COBOL language provide for 
interactive processing which is not currently part of the standard. The 
following is a complete list of verbs supported by VS COBOL. 


ACCEPT DIVIDE OPEN 

ADD ENTER PERFORM 
ALTER EXIT READ 
CALL EXIT PROGRAM REWRITE 
CLOSE GO TO SET 
COMPUTE IF START 
COPY INSPECT STOP 
DELETE MOVE SUBTRACT 
DISPLAY MOVE WITH CONVERSION * USE 
DISPLAY AND READ * MULTIPLY WRITE 


*Wang extensions 


This guide is intended as a source of information for programmers 
converting from an ANSI standard batch environment to the VS interactive 
environment. The examples used, therefore, are based on IBM to VS conversions. 


The four major topics of conversion discussed in this manual are: 


1. Syntax - The orderly arrangement of words and punctuation to form 
clauses, sentences, paragraphs, sections and divisions. 


2. Data file considerations 


a. Code set - The character code set used to represent data on the 
external media, and 
b. File organization - Permanent logical file structure. 


3. Control language - the commands which control program execution. 


4. Logical design - The orderly flow of operational functions performed 
on data. 


1.2 SYNTACTICAL DIFFERENCES 


IBM COBOL and VS COBOL have syntactical differences, most of which can 
be converted with a global edit. For example, the IBM compiler accepts the 
abbreviated name "ID DIVISION" for "IDENTIFICATION DIVISION". The VS compiler 
does not. The IBM compiler recognizes the single quotation mark (')3; the VS 
compiler recognizes the double quotation mark ("). 


The user aid CONVERTC is specifically designed to globally edit 
character strings in COBOL source code. CONVERTC can make the following types 
of modifications: 


source text global editing, 
comment out specified lines of source text, and 
add new source text to lines. 


For a complete list of syntax differences between IBM COBOL and VS 
COBOL, refer to Appendix A. 


1.3 DATA FILE CONSIDERATIONS 


Before data files can be read and processed by a VS, they must be 
translated to machine-compatible code and format. Wang provides several 
utilities to copy, reorganize if necessary, and translate nonconforming files 
to an acceptable code and format. 


The code set used by a computer system is transparent to the user. 
Both Wang and IBM provide a default code set. ANSI specifies ASCII (American 
Standard Code for Information Interchange) as the standard code set for use 
with COBOL. The VS code set is extended ASCII. The IBM code set is EBCDIC 
(Extended Binary Coded Decimal Interchange Code). Both are based on the 
32-bit word. EBCDIC cannot be processed directly by VS hardware; therefore, 
the IBM data files must be translated to ASCII. The Wang VS utility TRANSL 
performs this conversion function. 


The VS supports two file organizations, each with three access methods. 
The storage method used on the VS is virtual. Consecutive file organization 
(also known as sequential) where the logical file structure is composed of 
records identified by a predecessor-successor relationship, is supported. 
Indexed file organization, where each record of the logical file structure is 
identified by one or more keys, is also supported. Both consecutive and 
indexed files can be accessed sequentially, randomly or dynamically. Indexed 
files with sequential access method (similar to IBM ISAM files) are available. 


FILE ORGANIZATION ACCESS METHOD 


Consecutive Sequential 
Random 


Dynamic 


Indexed Sequential 
Random 


' Dynamic 


Figure 1-1. File Organization and Access Methods 


1.4 CONTROL LANGUAGE MODIFICATIONS 


The operator of a VS system can control program execution interactively 
at the workstation by invoking the Command Processor. Procedure language can 
also be used to perform these same functions, without constant operator 
intervention. 


The Procedure language is functionally similar to IBM's Job Control 
Language (JCL) since it is used to write special routines which can execute 
system commands. Procedures are used to run a series of programs in a 
specified sequence. The operator is only required to execute the procedure. 
A special procedure may be Written to be executed at logon time. This logon 
procedure can set default values for the duration of the logon session and 
execute specified programs. 


RUN - executes a program or another procedure. 
ENTER - provides run-time file information such as file, library and 
volume name. This verb can also be used to pass instream 


data to the executing program. 


DISPLAY - allows the operator to modify default run-time file 
information. 

SCRATCH - scratches a file or library. 

PROTECT - protects a file or library. 

RENAME - allows the operator to specify a new file name for an 
existing file. 

SET - allows the user to specify default file information and 
print modes. 

IF - controls conditional execution of procedure steps. 

GOTO - performs forward branching within the procedure. 

RETURN - terminates procedure execution. 

LOGOFF - terminates procedure execution and logs the user off the 


system. 


The above is a list of all of the Procedure language commands necessary 
and available to control program execution. 


Instream data can be passed to an executing program either interactively 
or by the Procedure language. The programmer must define the data fields that 
will be passed to the program at run-time. The Procedure Division code should 
include an ACCEPT of these data fields. The name of the field to be accepted 
should not exceed eight characters and should contain no hyphens. The value 
for this field is supplied by the procedure. 


If the program is executed interactively from the Command Processor, a 
prompt for the data field values is displayed. If the program is executed via 
a procedure, the ENTER verb provides the parameter value. If the data to be 
accepted by the program is not provided by the procedure, then a system prompt 
is issued to the screen. The following example demonstrates a sample program 
and procedure used to pass instream data to an executing program. 


WORKING-STORAGE SECTION. PROCEDURE 
77 ACCPTFLD PIC X. RUN DPLSAMPL IN DPLOBJ ON VOL444 
ENTER ACCEPT ACCPTFLD=0 


PROCEDURE DIVISION. 
ACCEPT ACCPIFLD. 
IF ACCPTFLD = "0" 
THEN GO TO EXIT-CLOSE 
ELSE NEXT SENTENCE. 


Sample Code Procedure Language 
Example 1-1. Sample Program Code and Procedure Language 


For more information on the use of the Procedure language, refer to the 
| VS Procedure Language Reference. 


1.5 LOGIC DESIGN CHANGES 


Interactive systems, by design, logically process data differently than 
batch systems. A sample card batch system goes through this cycle: 


1. Entries are keypunched to create a card deck. 
2. The deck is read onto disk or tape. 
3. The disk or tape is used as input to program. 


4. The program, which will sequentially process an accumulation of 
data, is executed. 


5. Corrections are handled which were due to keypunch errors. 


A sample online interactive system does not require the intermediary 
steps of first keying cards and then transferring the card information to tape 
or disk. The entry is keyed directly onto tape or disk. The VS programmer 
may design a system to accumulate all transactions onto disk or tape and then 
process this group of transactions (VS batch processing). The alternate 
system design is to interactively process/update each transaction as it is 
keyed (VS interactive processing). 


The VS hardware configuration does not include any card-oriented 
devices. All data used by a program must be read from a disk or tape file or 
entered interactively from the workstation. Therefore the batch system, as 
enumerated above, must be redesigned to eliminate all card processing. 


There are two approaches to this redesign: 


1. Redesign the front-end programs that process card input. The main 
processing logic remains intact, but all card input is replaced. 
The new front-end could accumulate keyed transactions directly onto 
a disk file. This file can then be input to the rest of the system, 
design logic unchanged. 


2. Incorporate interactive capability. This alternative requires a 
major redesign of the system logic. More lead development time is 
required, but the production processing time and methods would be 
totally interactive. Several VS utilities, such as EZFORMAT and 
DATA ENTRY, aid in the implementation of this approach. 


The VS provides an interactive environment. Most programs being 
considered for conversion are based on a batch design. Batch processing does 
not necessarily infer card input, but it does require an accumulation of items 
of raw data. Interactive processing, during which each unit of data is 
processed immediately at execution time, is performed on-line. 


CHAPTER 2 
DEVICE AND DATA CONSIDERATIONS 


Data files which are to be processed and read on the VS computer must 
conform to VS standards. There are several important considerations for the 
programmer who wishes to convert files from a non-Wang system to the Wang VS 
and insure data integrity. They include: 


1. character code difference, 
2. media compatibility, and 


3. file assignment. 


2.1 CHARACTER CODE CONVERSION 


As noted in Chapter 1, IBM data files are represented in EBCDIC and must 
be converted to ASCII for use by the VS. The VS utility, TRANSL, described in 
the VS Utilities Reference, translates EBCDIC to ASCII. TRANSL may also be 
used to change the order of fields within the records of a file, delete 
existing fields, and insert new blank fields, without converting the character 
code set. 


2.2 DEVICE ACCESSIBILITY 


The storage medium of the data file must be accessible by VS equipment. 
Data files on IBM series 3740 diskette can be made accessible to the VS, if 
they are first transferred to a Wang formatted diskette. The VS can also 
emulate an IBM 2780/3780 remote job entry (RJE) terminal, and transmit and 
receive data from the host central processing unit over telecommunication 
lines. If the files to be converted are not on these devices, then they can 
be copied onto a 9-track tape, possibly by the IBM OS utility IEBGENER. The 
principle medium for data interchange between non-Wang and VS equipment is 
9-track magnetic tape. Both 800 and 1600 bpi tape are supported. 


Table 2-1. 


Utility 


TAPECOPY 


Input 


9-track tape 
800 bpi 
1600 bpi 


Output 


9-track tape 
800 bpi 
1600 bpi 


Device Conversion Utilities 


Manual 


VS Utilities Reference 


3740 Diskette 
Compatibility 
Software 


3740 
formatted 
diskette 


2200 
formatted 
diskette 


3740 Diskette Compatibility 
Software Reference 


COPY2200 2209 
formatted 


diskette 


VS formatted 
diskette 


VS Utilities Reference 


TCCOPY 2780/3780 


files 


VS disk 
file 


VS Data Communications 
User's Guide 


3740 Diskette Files 


If data files are on IBM series 3740 diskette, the Wang 2200 Series 3740 
Diskette Compatibility Software Utility can convert the IBM 3740 file to a 
Wang 2200 TC formatted file. This 2200 file can then be used as input to the 
VS utility COPY2200 to create a converted VS formatted disk file. COPY2200 
provides the mechanism of data exchange between the VS and the Wang 2200 
series. The two-system process described below requires both Wang 2200 
hardware and VS hardware. 


Step 1. System: Wang 2200 with a 2270A diskette drive. 
Input: 3740 diskette file. 
Execute: 3740 Diskette Compatibility Software. 
Output: Wang TC formatted file. 

Step 2. System: Wang VS. 
Input: Wang TC formatted diskette file. 
Execute: VS utility COPY2200. 
Output: converted VS formatted disk file. 


9-track Tape Files 


If the files are on 9-track tape, the VS utility TAPECOPY can be used to 
copy the file from tape to VS disk. The TAPECOPY utility also has an option 
to translate from EBCDIC to ASCII during the COPY processing. 


All tape files are organized consecutively. If an indexed disk file is 
copied to tape, the indices are not transferred, and the data portion of the 
file is written as a consecutive file. The DEFINE DISKFILE option of TAPECOPY 
allows the operator to specify file organization. A consecutive tape file may 
be changed to an indexed file with no alternate keys by specifying "I'' in the 
FILEORG field and supplying the length and position of the primary key. The 
user is also given the opportunity to change other file characteristics 
(record format, packing density, printclass, and compression). 


2780/3780 Emulation 


The Wang TCCOPY utility's main function is to enable emulation. It 
enables the VS workstation to emulate the RJE terminal. Data received by the 
VS system via this utility is stored on disk in VS blocked format. These 
files, if in EBCDIC, must be translated to ASCII before further processing by 
the VS. 


Data files can also be transmitted by the VS system by executing this 
emulation utility. 


Print Records 
Printer characteristics should also be reviewed for compatibility. 


VS print records do not reserve the first byte for a write control 
character. All bytes described in the print record file description are 
usable for character display. Spacing and line positioning of VS print 
records are controlled by a two-byte write control area which is automatically 
added to the beginning of the print record. These two bytes are not counted 
with the total number of bytes for the print record definition. A print file 
that will produce 132 printed characters is defined in the COBOL program as 
containing 132 characters. 


10 


As long as the programmer writes print records BEFORE or AFTER ADVANCING 
a number of lines or PAGE, there is no need to provide values for the control 
area. The values in the control area are provided by the compiler when either 
reserved word, BEFORE or AFTER, is recognized. . 


SYNTAX: WRITE record-name [FROM identifier-1] 


ener EE 
BEFORE ADVANCING integer LINES 

AFTER PAGE 
user-figurative-constant 


If the programmer needs to specify non-standard spacing, the record can 
be written BEFORE or AFTER ADVANCING a_user-figurative-constant. The 
user-figurative-constant must be defined in the FIGURATIVE-CONSTANTS paragraph 
of the Environment Division as one byte. 


If bit 0O of byte 1 is zero, then bits 1-7 of byte 2 indicate the number 
of lines to be _ skipped. If bit 0 of byte 1 is one, then byte 2 indicates 
either TOP OF FORM (HEX "01'') or VERTICAL TAB (HEX ''02"'). 

The bits indicated in Figure 2-1 must be zeroes. 


CONTROL BYTE 1 CONTROL BYTE 2 


Figure 2-1. Print Record Control Bytes 


The VS implementation of the write control allows either standard 
hands-off line/page advancing or programmer-controlled line/page advancing. 


The maximum length for any VS print record is limited by the printer 
device used. Most VS printers support print lines of up to 132 characters. 
Some models of the matrix line printer support up to 160 characters per line 
and the daisy printer can support up to 158 characters per line. 
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2.3 FILE ASSIGNMENT 


VS files must be described in the COBOL program and they must be 
assigned a system name. This is done through the SELECT and ASSIGN clauses. 
The file-name associated with the SELECT clause is the file-name as it is used 
throughout the program. The name associated with the ASSIGN clause is called 


the parameter-reference-name. This parameter-reference-name is used to keep 
track of system related information for the file, such as record type, file 
organization and _ blocksize. Any system prompts to the operator for 


information about the file use the parameter-reference-name. To complete the 
assignment of the file, it must be associated with a device-type. Valid 
devices are DISK, TAPE, PRINTER and DISPLAY. If no device is supplied, the 
default is DISK. 


SYNTAX: SELECT file-name 
ASSIGN TO "parameter-reference-name" [,''device-type''] [ ,NODISPLAY] 


The NODISPLAY option of the ASSIGN clause suppresses prompts to the 
operator for file information as long as that information is provided 
elsewhere (from a procedure, for example). 


For those familiar with IBM operating systems, the system name assigned 
to the file in the Data Control Block (DCB) is similar to the VS 
parameter-reference-name assigned to the Unit File Block (UFB). The DCB and 
UFB contain the same type of file information, although the UFB contains more 
file characteristic information. IBM uses Job Control Language (JCL) to 
control program execution and provide run-time file information. IBM's DDName 
is equivalent to the VS parameter-reference-name. The cataloged data set name 
(dsn) provides the same information to the IBM operating system that the data 
file-name, library name and volume name provide to the VS operating system. 
With the VS, this run-time data file information can be provided in any of 
four ways: 


1. by an operator response to a system prompt, 

2. through a procedure, 

3. by a literal compiled with the program in the VALUE OF clause, or 
4. by a data-name compiled with the program in the VALUE OF clause. 


The examples of program code and procedures on the next page exhibit 
these four methods. 
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Four Examples of Assignment of Run-Time Information 


ASSIGN "PUTIN" 


FILENAME=TESTDATA LIBRARY=DPLDATA VOLUME=VOLO01 


Example 2-1. Thru an Operator Response to System Prompting 


PROCEDURE 

SET INLIB=DPLDATA, INVOL=VOL001, PROGLIB=DPLOBJ, 
PROGVOL=VOL001 

RUN SAMPLE 

ENTER PUTIN FILE=TESTDATA 


Example 2-2. Thru a Procedure 


FD PUTIN 
VALUE OF FILENAME IS '"TESTDATA" 
LIBRARY IS "DPLDATA" 
VOLUME IS "VOL001". 


Example 2-3. Thru Literals in the VALUE OF Clause 


FD PUTIN 
VALUE OF FILENAME IS FILE-NAME 
LIBRARY IS LIB-NAME 
VOLUME IS VOL-NAME. 


WORKING-STORAGE SECTION. 
77. FILE-NAME PIC X(8). 
77 LIB-NAME PIC X(8). 
77. +VOL-NAME PIC X(6). 


PROCEDURE DIVISION. 


MOVE '‘TESTDATA" TO FILE-NAME. 
MOVE "DPLDATA" TO LIB-NAME. 
MOVE '"'VOLOO1"' TO VOL-NAME. 


Example 2-4. Thru Data-names in the VALUE OF Clause 
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CHAPTER 3 
FILE ORGANIZATION AND ACCESS METHODS 


3.1 FILE ORGANIZATION GUIDELINES 


The VS manages, maintains, and supports files through system-provided 
code known as the Data Management System (DMS). DMS is independent of 
individual user programs and is, in effect, transparent to the user. The Data 
Management System is invoked by the user's program whenever that program 
opens, accesses, or closes a file. DMS keeps track of all file 
characteristics, such as file organization, record length, access method, 
record count, parameter-reference-name, blocksize and format. 


The Data Management System is resident in one common area of main 
memory. All user programs access this one area for file control. DMS is used 
by all languages, not just COBOL. 


3.1.1 File Organizations 


IBM COBOL offers five types of file processing with associated access 
methods. They are referred to as sequential (QSAM), direct (BSAM, BDAM), 
relative (BSAM, BDAM), indexed (QISAM, BISAM) and virtual (VSAM). The VS 
offers comparable counterpart processing to each of these five techniques. 


IBM's standard sequential file is organized in serial order. As each 
record is written, it is added to the end of the file. Records are read in 
the order in which they were written. The VS equivalent is a file with 
consecutive organization and SEQUENTIAL access. This consecutive file, like 
the IBM sequential file, is ordered as the records were originally written. 


15 


Direct file processing in IBM COBOL permits records to be accessed by 
the relative track address provided through the ACTUAL KEY clause. An ACTUAL 
KEY value is composed of a relative track number and an identifying key 
utilized for the record search. A direct file cannot be allocated more space 
after it is created. Due to differences in data storage on disk, the VS Data 
Management System does not offer a keyed processing technique that is strictly 
compatible with IBM's direct file processing. A comparable effect may be 
achieved by use of VS indexed files. The VS programmer can directly access 
any specified record by identifying a key value in the RECORD KEY clause. The 
RECORD KEY clause specifies the data-name of a field in the record and has a 
unique value for each record. VS indexed files are discussed below. 


IBM's relative file processing accesses records based on their ascending 
relative position in the file. The relative record number is provided via the 
NOMINAL KEY clause. The relative record number must be assigned to the 
NOMINAL KEY data-name before executing a READ, WRITE, or REWRITE. Relative 
file records are arranged in the same order that they were originally written 
to the file. The first record has a relative record number of zero (0). Once 
a file is created, its space allocation cannot be changed. A comparable VS 
technique to relative file processing utilizes consecutive file organization 
with RANDOM access. All records’ stored in a consecutive file are uniquely 
identified by a relative record number which specifies the record's ordinal 
position in the file. The relative record number must be assigned to the 
RELATIVE KEY data-name before executing a READ, WRITE or REWRITE. The first 
logical record has a relative record number of one (1) and subsequent logical 
records have relative record numbers of 2,3,4.... 


Indexed file processing techniques offered by IBM and Wang are very 
comparable, although there are some’ structural and implementation 
differences. Both IBM and Wang offer indexed file organization which permits 
RANDOM and SEQUENTIAL access to the file based on a record key. Both use a 
RECORD KEY clause to define a data item within the record by which the record 
can be uniquely identified. The data item is defined as any fixed length item 
from 1 to 255 bytes in length. The records are ordered in ascending sequence 
based on the key values. (Remember that the IBM collating sequence is EBCDIC 
and the Wang collating sequence is ASCII; see Appendix E.) Both offer indexed 
records that may be accessed sequentially; in such case each successive record 
obtained has a _ key value greater than the key value of the preceding record. 
Indexed records may also be accessed randomly by naming a specific key value. 
RANDOM access allows the user to specify which record is needed. 


Both the IBM access methods (QISAM and BISAM) and the VS Data Management 
System offer system maintenance of indexes. However, there are notable 
structural differences. IBM defines three storage areas for an indexed file 
-- prime, index and overflow. The VS allocates one storage area only. When a 
new record is added to an IBM file, the actual record could be placed in the 
overflow area With an index pointer to that area. The new record added to the 
VS file will be placed in physical order in the file. This is performed 
through a process known as block-splitting. 
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Space is allocated differently. The IBM programmer must calculate space 
requirements dependent upon the number of records in the file, and the area 
required for index and overflow areas. The programmer specifies the primary 
and secondary space parameters in JCL. IBM's indexed files must have total 
space allocated at create time, and the amount specified must account for 
future file growth. VS indexed files, when opened in OUIPUT mode, 
automatically calculate and allocate required space depending upon the 
estimated number of records provided by the programmer. If additional space 
is needed as the file expands, secondary space is allocated automatically by 
Data Management. 


File reorganization is sometimes necessary to consolidate and optimize 
space usage and to improve degraded input/output performance. One reason to 
reorganize IBM files is improvement of input/output performance which has been 
reduced because of chaining from index to prime to overflow areas. VS 
reorganizations may be necessary to improve performance, but because of the 
technique used by DMS to allocate file space, they are not required as 
frequently as with the IBM chaining. 


The IBM method of data set cataloguing permits retrieval based on data 
set name and disposition only. VS Data Management does not support 
cataloguing. VS files must be retrieved by file, library and volume name. 


The notable implementation differences for indexed file processing 
between IBM access methods and the VS Data Management System concern the 
flexibility and utility of the record key. To randomly access an IBM record 
by identifying key value, the programmer must move the identifying value to a 
data-name storage field. This data-name is identified as a NOMINAL KEY. A 
NOMINAL KEY is required when an indexed file is accessed randomly. The VS 
system does not use a NOMINAL KEY. The identifying VS key value is moved to 
the primary key field in the record area. As the record is read, it is moved 
into the record area, overlaying the primary key identifying value which was 
supplied by the programmer. 


IBM COBOL does not allow direct REWRITE of a record with an altered 
length. The existing record must be deleted and the altered-length record 
then written. VS COBOL does not face this implementation restriction; REWRITE 
of a record with an altered length is allowed. 
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VS indexed files may be accessed along alternate key paths in addition 
to the primary key path. Each file may be defined with one primary and up to 
sixteen (16) alternate keys. Records in a file do not have to be part of all 
alternate access paths. A file with implicitly redefined records at the 
01 level may have different data-names for the alternate key field, depending 
on the record type. This alternate key must still occupy the same left-most 
byte position in each record. Only those records with the data-name specified 
in the ALTERNATE RECORD KEY clause are indexed along that alternate key path. 
Alternate keys need not be unique if so defined at file creation: duplicate 
alternate key values are allowed. In order to randomly read a file to 
retrieve a record with a duplicate key value, the identifying value is first 
moved to the alternate key field in the record area. Next, the READ is issued 
specifying the alternate key data-name in the KEY clause. The record obtained 
will have the specified alternate key value, and the lowest primary key value 
associated with that alternate key, if the alternate key is duplicated. A 
READ NEXT will obtain the next record on this alternate key path. This READ 
NEXT process can continue until the AT END condition is encountered, 
indicating that there are no more records on this path. The file status of 
each READ NEXT is "00" unless the alternate key has one or more duplicates. 
In this latter case, the file status returned is "02". The file status of 
"00" is returned when the last of the duplicate key values is read. 


For example, consider an inventory parts file with indexed organization 
and a primary key of parts number and two alternate keys -- supplier code and 
usage code. Supplier code allows duplicates. If the application requires a 
list of all parts supplied by Supplier-X, the list produced by randomly 
accessing the file on alternate duplicate key would be in primary key order 
within alternate key order. 


VSAM processing of indexed files, as implemented through IBM COBOL, with 
direct and sequential access to indexed and sequential files, is most like the 
file processing techniques offered by the VS Data Management System. VS 
indexed file organization adds additional features to the READ, START and 
REWRITE I-O statements (as mentioned above). 


3.1.2 Record Organizations 


Disk files, by default, are blocked in 2K physical records. Spanned 
records, logical records that are stored in two or more physical records, are 
not supported. Because of the blocking considerations and other factors, 
there are limitations on record length. 


Consecutive Indexed 
Fixed 2048 2040 
Variable 2024 2024 
Compressed 2024 2024 


Figure 3-1. Maximum Record Lengths Depend on File 
Organization and Record Type. 
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3.1.3 Compression 


The Data Management System supports a special feature for both indexed 
and consecutive files called data compression. A Wang extension to the RECORD 
CONTAINS clause is used to specify data compression. The general format is: 


RECORD CONTAINS [integer-1 TO] integer-2 [COMPRESSED] CHARACTERS 


When COMPRESSED is used, all characters of three or more duplicate and 
consecutive characters are compressed into two bytes which contain the number 
of occurrences of the character and the character itself. Every COMPRESSED 
file contains compression indicator bytes which note (1) whether or not the 
bytes following the indicator bytes are COMPRESSED and (2) the number of bytes 
following the indicator bytes and preceding the next indicator bytes. 


COMPRESSED is only specified when a file is being opened for output and 
the user wants the file to be compressed. Compression is not provided by 
default. DMS automatically expands compressed records to original format when 
they are read. Thus, compression is completely transparent to the user 
program. Compressed records are stored as variable length records. Variable 
length consecutive records cannot be updated via a REWRITE; therefore, a file 
that is to be updated must not be defined with consecutive organization and 
compressed records. This combination, consecutive compressed, is useful for 
record keeping logs. For example, this file may be used to record all update 
information which was processed against an updatable file. Because of this 
special function, compressed consecutive files are called log files. 


3.2 SHARING 
Sharing allows multiple users access to the same information, be it 
program or data files. There are two levels of sharing in the VS Operating 


System: automatic program sharing controlled by the operating system, and file 
sharing controlled by the Data Management System. 


3.2.1 File Sharing 


File sharing is a useful, easily implemented feature which can be used 
by the conversion programmer to redesign front-end programs or an entire 


system. Since files can be shared, system design can include concurrent 
multiple transactions to the shared file. One data file may be shared by many 
users. Shared files can even be simultaneously accessed by users performing 


different tasks. For example, one operator may update a shared file while 
another user is running inquiries against the file. 


The single-user access constraint, which the system undergoing 
conversion had before, is no longer a design limitation. 


File sharing allows multiple users update access to the same data file. 
File sharing is controlled by the sharing task of DMS. This task completely 
controls access to all shared files. If two users simultaneously attempt to 
access the same record, the sharing task puts one user in a “wait" state until 
the first user releases the record. When the record is released, the 
“waiting user is then granted free access to it. This "wait" is generally 
not noticeable to the user. 
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The sharing task: 
1. permits simultaneous multi-user update access to an indexed file, 


2. prioritizes all user requests and resolves multi-user conflicts, 
and 


3. executes I-0 mode commands for file access requests. 


3.2.2 COBOL Implementation 


To implement file sharing, the VS programmer need only identify the open 
mode as SHARED and realize the effects of holding and releasing records. 


SYNTAX: OPEN SHARED file-name. 


The sharing task of DMS controls users' access to files which are in use. 
This control is established by DMS, not by the program code. 


The COBOL programmer should be familiar with the standard INPUT, OUTPUT, 
I-O, AND EXTEND MODES and their access restrictions. 


INPUT: Multiple users have READ only access. 


OUTPUT: One user at a time may, depending on file organization, 
WRITE to or START the file. 


=O: One user at a time may READ or modify the file. 
EXTEND: One user may WRITE records to an existing consecutive file. 


SHARED mode, a Wang extension, allows multiple users concurrent access 
to READ and modify a file. 


While one user is altering a record, that record should be protected 
from other user requests. This protection is insured by specifying a HOLD 
when obtaining the record. A record should be held only during modification. 


SYNTAX: READ file-name WITH HOLD 


When the user has completed processing that record, it must be released to 
allow access by other users. A record may be released by (1) issuing another 
READ WITH HOLD for the file, (2) issuing a REWRITE or DELETE for the held 
record, (3) issuing a WRITE for the record, or (4) issuing a CLOSE for the 
file. A user may hold only one record at a time. 


The sample code in Appendix B demonstrates the Wang extensions to COBOL 
which are required to implement shared mode processing. 
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CHAPTER 4 
CODING FOR THE WORKSTATION 


4.1 INTERACTIVE WORKSTATION OVERVIEW 


The VS system is an interactive system in which the primary means of 
program and data entry is the interactive workstation terminal. The user 
“converses'' with the system via keyed entries and the system communicates to 
the user via screen-formatted displays. 


In COBOL the workstation is associated with a workstation file. The 
workstation file, just like any file, has a file description in the Data 


Division. It can be read from or written to. The records of a workstation 
file, called screen display records, are similar in function to record 
description entries. These properties are common to all COBOL files. The 


uniqueness of the interactive extension to COBOL is the manipulation of data, 
as demonstrated by the Procedure Division statement DISPLAY AND READ. 


4.2 CODING FOR THE WORKSTATION 
Coding for the workstation in COBOL is supported by Wang extensions to 


the language. These extensions and coding requirements are described as 
follows and demonstrated in the sample program in Appendix B. 


4.2.1 Workstation File 


The workstation file is described in the COBOL FILE-CONTROL paragraph 


and file description. This file is assigned to the device DISPLAY. Access 
mode must be RANDOM and file organization must be consecutive. This file 
contains 1924 bytes -- 24 rows times 80 characters per row yields 1920 byte 
positions, plus a four byte order area. This order area can be used to 


control cursor positioning. The file-name for the workstation file is used by 
the COBOL program when manipulating the screen record. 
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ENVIRONMENT DIVISION. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 

SELECT CRT ASSIGN TO “SCREEN" "DISPLAY" 

ORGANIZATION IS SEQUENTIAL 
ACCESS MODE IS RANDOM. 

DATA DIVISION. 

FD CRT. 

01 DISPLAY-REC PIC X(1924). 


Example 4-1. Sample Code for a Workstation File 


4.2.2 Screen Definition 


Once the file has been defined, the screen record formats can be 
defined. A screen record entry defines positioning of data fields on the 
screen, field lengths, field sources, validation ranges and other field 
characteristics. There are three clauses-~ VALUE, SOURCE and OBJECT- used in 


the screen display record entry and by the screen manipulation verb DISPLAY 
AND READ. 


O01 RECORD-NAME USAGE IS DISPLAY-WS. 
05 DATA-NAME-1 PIC X(5) ROW 4 COLUMN 9 
VALUE IS "TOTAL". 
05 DATA-NAME-2 PIC X(5) ROW 4 COLUMN 15 
SOURCE IS FIELD-NAME-1 
OBJECT IS FIELD-NAME-2. 


Example 4-2. Sample Screen Display Record Entry 


The VALUE clause specifies the literal exactly as it is to appear on the 
screen. The SOURCE clause specifies a data-name of a Data Division item to be 
displayed on the _ screen. The value in the storage area identified by this 
data-name will be displayed on the screen when the DISPLAY AND READ is 
issued. The VALUE and SOURCE clauses are used exclusively of one another. 


The OBJECT clause indicates that the described field is modifiable. 
This clause also specifies a data-name of an item to receive data from the 
screen. This value will be supplied by the operator and then moved to the 
storage area identified by the OBJECT data-name. 


4.2.3 DISPLAY AND READ 


When the DISPLAY AND READ is executed, the screen record is displayed. 
The values displayed are provided via the SOURCE or VALUE clauses. The system 
then waits for the operator to examine, add or change values and press the 
ENTER or one of the PFKEYS. This response is then read. If fields have been 
modified, the new values are validated and stored in the area determined by 
the OBJECT clause. Thus, DISPLAY AND READ could be considered as a 
five-process step: MOVE, DISPLAY, READ, Verify, and MOVE. 
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4.3 ADDITIONAL WORKSTATION CODING FEATURES 


Figurative Constants and FACs 


Another Wang extension to COBOL allows the programmer to define 
figurative constants. This feature can be used in conjunction with screen 
field attribute characters (FACs) . FACs control the display mode 
characteristics for all characters in a field in the display, and are 
represented by hexadecimal values, but they appear on the display as a space. 
Default FACs are provided. The FAC value provided depends on the clauses used 
when defining the display picture definition. 


The programmer may override the default FAC values by naming a FAC value 
in the figurative constants paragraph and then moving that FAC value to the 
FAC field of any data item described in the display picture definition entry. 


ENVIRONMENT DIVISION. 


FIGURATIVE-CONSTANTS. 
BLINK-MOD-NUMERIC IS "90". 


PROCEDURE DIVISION. 


MOVE BLINK-MOD-NUMERIC TO 
FAC OF DATA-NAME-2. 


Example 4-3. Sample Figurative Constants Code 


The FAC display characteristics are a combination of one from each of 
the four columns in Table 4-1. 


Table 4-1. Field Attribute Characteristics 


MODIFY UPPERCASE UNDERLINED 
PROTECT NUMERIC NOT UNDERLINED 


ALPHANUMERIC UPPER AND LOWER 


The default FAC for a field with an OBJECT clause is bright modifiable 
ALL, not underlined. This combination has a hex code value of ''80". 


The default FAC for a field with a SOURCE or VALUE clause and no OBJECT 


clause is dim, protected, ALL, not underlined. This combination has a hex 
code value of '"'8C"’. 
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4.4 ADDITIONAL UTILITIES TO AID IN WORKSTATION CODING 


The following is a list of additional utilities which may be useful to 
the conversion programmer: 


EZFORMAT: 


DISPLAY: 


COPY : 


PRINT: 


generates the source code necessary to reproduce a screen 
display format defined by the user. 


The COBOL option of EZFORMAT creates a compilable source 
file which can be copied into the working-storage section of 
the COBOL program. The DATA ENTRY option creates an entire 
data entry program based on the users graphic description of 
the screen format and the field characteristics. 


(See VS Programmer's Introduction.) 

displays any file on the screen. It can translate records 
from ASCII to HEX and locate records or text strings. 

(See VS Utilities Reference.) 


copies files from one location to another. 
(See VS Utilities Reference.) | 


produces a hard copy of a print file. 
(See VS Utilities Reference.) 
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APPENDIX A 
SYNTAX CONVERSION FACTORS 


TABLE A-1. IDENTIFICATION DIVISION AND OVERALL CONVERSION FACTORS 


ee ee ee eee ene en ee ee ened 


ITEM SYNTAX AND CONVERSION REMARKS* 
IDENTIFICATION DIVISION IBM: IDENTIFICATION OIVISION. 


ID DIVISION. 
WANG: IDENTIFICATION DIVISION. 
REMARKS: The abbreviated form is not accepted by the Wang compiler. 


Ce ee ee ee Dede aandedie ten telente etn 


PROGRAM-ID IBM: PROGRAM-1ID. program-name. 
PROGRAM-ID. ‘program-name'. 


WANG: PROGRAM-ID. program-name. 


REMARKS: The program name, in quotes, is not accepted by the Wang compiler. 


ee ee i Ne ede ter teetinatieatentien tetera intend 


REMARKS IBM: REMARKS. reserved word 
WANG: (not supported). 


REMARKS: REMARKS is not a Wang COBOL reserved word. Comment lines can be used by specifying 
an asterisk (*) in column 7. 


nee Oe ee ew EEE ee Eee Hw we RK Bee ew OO Rw OO we Ee we eee ee ew eee ew ew ee eww eee we 


RESERVED WORDS REMARKS: See Appendix D for IBM reserved words not recognized by the Wang compiler, and wang 
reserved words not recognized by the IBM compiler. 


* id = identifier imp-st = imperative-statement lit = literal ind-nm = index-name 
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Ce ee ee ee ee ed 


EJECT IBM: EJECT SKIP2 
SKIP SKIPI SKIP3 
WANG : (not supported). 


REMARKS: These statements which generate spacing for IBM-compiler listings are not supported 
by the Wang compiler. An EJECT to top-of-form, next page is generated by a (/) in 
column 7. A SKIP condition is created by writing blank lines or blank comment 
lines in the source code. 


QUOTES IBM: ‘ * (single quotation marks) 
g 
WANG: " " (double quotation marks) 


REMARKS: The Wang compiler requires double quotation marks. 


Ce ee eee ee eee ee es 


* id = identifier imp-st = imperative-statement lit = literal ind-nm = index-name 
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TABLE A-2. 


ENVIRONMENT DIVISION CONVERSION FACTORS 


ITEM 


SOURCE AND OBJECT COMPUTER 


IBM: 


WANG: 


SOURCE-COMPUTER. IBM... 
OBJECT-COMPUTER. IBM... 


SOURCE-COMPUTER. WANG-VS. 
OBJECT-COMPUTER. WANG-VS. 


OBJECT COMPUTER 


WANG: 


REMARKS: 


OBJECT-COMPUTER. 
CSEGMENT-LIMIT is priority~-number]. 
OBJECT-COMPUTER. eee 

CPROGRAM COLLATING SEQUENCE is alphabet-name]. 


Wang supports the ANSI standard clause of PROGRAM COLLATING as a comment only. The. 
VS collating sequence is ASCII. The IBM extension of SEGMENT-LIMIT is not 


supported. 


eee ee ee ee ee ee ee ee ee eee eee ee eee eee 


FIGURATIVE CONSTANTS 
(system-defined) 


WANG: 


REMARKS : 


ZERO(E) (S) LOW-VALUE (S) 
SPACE (S) QUOTE (S) 
HIGH-VALUE (S) ALL. 

ZERO (E) (S$) LOW-VALUE (S) 
SPACE(S) QUOTE (S) 


HIGH-VALUE (S) 


The reserved word, ALL, is not supported as a system-defined figurative constant. 


SO HOKE KD RE ENE Ee OO me EO Bw Oe OE we Ow Oe HOO wee www eM Bem mw ee mee em ee we 


FIGURATIVE CONSTANTS 
(user~implemented) 


WANG: 


REMARKS ; 


(not available). 
user-defined. 


The concept of implementor-defined figurative constants is mentioned in Chapter 4. 


SO Oe Oe eT Om A AS Oe iy Oe ON EY OS OE OD OO ee Oe we aE ED OR On am OO My it WE ER ES rae TS OD OW SM cme wt Gm mt ewe re Om Mt Ow OE ew mh ee me Oe TR WN We OS wey Om nn oe Owe Oe om mE Om Oe cee em tee em me ee me ee me eee we ee ee Oe ee oem ee Oe ee mee me co eee me ome may a meme me mee oe te ee 


* id = identifier 


imp-st = 


imperative-statement 


ind-nm = index-name 


O€ 


ITEM SYNTAX ANDO CONVERSION REMARKS* 


SELECT CLAUSE IBM: SELECT COPTIONAL] file-name 
Optional is a keyword required for input files that are not necessarily present 
each time the program is executed. 


WANG: SELECT file-name 
REMARKS: The IBM keyword OPTIONAL is omitted. 
ASSIGN CLAUSE IBM: ASSIGN TO [integer-1] system-name-1! ([system-name-2] ... [FOR MULTIPLE {UNIT}] 
{REEL} 
WANG: ASSIGN TO "“parameter-reference-name" [,"device-type"] [ ,NODISPLAY] 


REMARKS: Parameter-reference-name can be a maximum of eight characters. The first character 
must be alphabetic and the rest must be alphanumeric. The parameter-reference-name 
associates the FO with run-time file specifications supplied via the command 
language. The parameter-reference-name is functionally equivalent to IBM's DD name 
in JCL. 


Device-type must be “DISPLAY", “DISK", "TAPE" or "PRINTER". The default value is 
"DISK". 


MULTIPLE REEL/UNIT is related to tapes and is not supported on the disk-based Wang 
vs. 
NODISPLAY is a VS option that suppresses system prompts for getparm information. 


ween enw www nee mw ewe ee ew ee wee eB w Oe eee ew eH HB ee Ee we OB wwe wee et ew wee we Ew meee we te ew ewe ee ew em ewe ee Be He ee ee wee Owe ew eee 


RESERVE IBM: {NO } CAREA ] 
RESERVE {integer} ALTERNATE [AREAS] 


WANG: CAREA ] 
RESERVE integer [AREAS] 


REMARKS: The NO option, used by IBM to control buffering, is not required by the WANG system 
since Data Management and the I-O processor handle these buffer requests. 
The RESERVE clause can be used to optimize buffers with buffer pooling. The 
RESERVE clause when used in conjunction with the SAME AREA clause indicates that 
the specified indexed files are sharing a buffer. 


ewww ew wee ee ee ewe ee Ee ee ew ee we ee ew eee ee ee ew ew tw a i i i ee ee we ew ee ee em 


* id = identifier imp-st = imperative-statement Tit = literal ind-nm = index-name 


Le 


wee ww em em meme MO te wR ee ew ee He we eee ee me we ee ewe ew ew eee 


ITEM SYNTAX ANDO CONVERSION REMARKS* 


FILE LIMIT IBM: {FILE-LIMIT IS } {data-name-1!} {data-name-2} 
{FILE-LIMITS ARE} {1lit-1 } THRU {1it-2 } 
{ {data-name-3} {data-name-4}] ... 
C{lit-3 } THRU {1it-4 }] 
WANG: (not supported). 


REMARKS : This clause serves as documentation only on the IBM system. 


ee ed eee ede 


PROCESSING MODE IBM: PROCESSING MODE IS SEQUENTIAL 
WANG: (not supported). 


REMARKS: This clause serves as documentation only on the IBM system. 


ee a et ek te eee aentietneenieeeel 


ACTUAL KEY IBM: ACTUAL KEY IS data-name 
WANG: RECORD KEY IS data-name 


REMARKS ;: The ACTUAL KEY is used when processing a direct file. The ACTUAL KEY contains a 
track identifier and a record identifier. There is no one-to~one corresponding use 
of the ACTUAL KEY in VS COBOL because there is no direct file processing. However, 
the VS Data Management System offers indexed file organization which permits 
retrieval of a specific record by an identifying key value. The key field is 
identified in the RECORD KEY clause. 


Se a ee ead tent a heh a ee eR NE ete el ee eee nee ae et len eee ett et eaten teen tein teat 


NOMINAL KEY IBM: NOMINAL KEY IS data-name 
This clause is required when an indexed or relative file is accessed randomly or 


when an indexed file is accessed sequentially using the START function. 


WANC: (not supported). 


REMARKS: Random access of an indexed file is controlled by the programmer. The desired 
record is accessed by placing the value of its record key in the record key data 


item in the record area. 


cern www ew mmm Of ew Tee See wee Tw ee ew Dew ew mm www www we ww new ewww ww www ww mw ewe enw ee eee te rw mmr mre wr srr rere rere aware 


* id = identifier imp-st = imperative-statement lit = literal ind-nm = index-name 


ce 


wT me ew Ts eee me ew ee ee eee eet ww Pe Be BO TE TO Be He wee mew ewe 


ITEM SYNTAX AND CONVERSION REMARKS* 


TRACK-AREA IBM: TRACK~AREA IS {(data-name} 
{integer } CHARACTERS 
This clause is optional when adding records to an indexed file in the random access 


mode. 
WANG: (not supported). 
REMARKS: This clause is unnecessary since Data Management and the I-0 processor supervise 


track allocation functions. 


sabe ise” ii as wb eh“ ln nb sch Ws! asc nna nut“ elm je a eo cn, Gs s,s sc abn as bw Hess sane es hale Sta, ssw Sse“ 0 ea mad ny Gee ss ew ee ee Se ers oat See 


TRACK-LIMIT IBM: TRACK-LIMIT IS integer [TRACK ] 
CTRACKS] 
This clause indicates the relative number of the last track to be initialized for 
the creation of files with direct organization. 


WANG: (not supported). 


REMARKS: This clause is unnecessary since Data Management and the I-O processor supervise 
track allocation functions. 


oem ee ew ee ee ee ee ee ee ee ee we a a ee ee we ee we ee wee ee ee ee eH wee ee eee ee wee wee woe 


CURSOR POSITION IBM: (not supported). 
WANG: CURSOR POSITION is data-name 


REMARKS: This clause is optional but only applicable when device-type is "DISPLAY" and a 
workstation file is being referenced. 


The data~name value, provided by the operating system, indicates current row and 
column position after every I-O operation on the workstation file. 


BUFFER SIZE: IBM: (not supported). 
WANG; BUFFER SIZE IS integer BLOCKS 


REMARKS : This optional clause is valid for sequential files only. 
It is another optimization tool used to create large buffers. 


Ce ee et el ee eee Lee eee eee eee 


* id = identifier imp-st = imperative-statement lit = literal ind-nm = index-name 


ee 


ww mem mm me we Bw ewe eK ee ew ee ee eee ee we Ee DB ee eM MP ee Bw ee wee ee ewe ewe we ew ee em ee Bee ee we Bem ee ew em ew ee wee ee eww wwe ewe ewe 


PF KEY 


IBM: 


WANG: 


REMARKS: 


SYNTAX AND CONVERSION REMARKS* 
(not supported). 
PFKEY is data-name 
This optional clause is valid for workstation files only. It identifies a data 


area that receives the numeric value of the entered PFKEY following execution of 
the command DISPLAY AND READ. 


ee ee Re ER OE Ee 


PASSWORD 


WANG: 


REMARKS: 


PASSWORD IS data-name 
This optional clause defines a working-storage data item that controls object-time 


access to the file. 
(not supported). 


Files are protected by limiting user's access. Files can only be accessed by users 
who are authorized for that file's protection class. The protection class is 
defined when the file is created. 


Ne eee eee ee eee ee eee ee ee ee ae Reheat een ected etonion! 


RERUN 


ISM: 


WANG: 


REMARKS: 


RERUN ON system-name EVERY {integer RECORDS} 


RERUN ON system-name {CEND OF] {REEL} } OF file-name 
{UNIT} 


C { file name-1 }J 
RERUN [ON {implementor-name}] EVERY integer RECORDS OF file-name-2] 


RERUN is treated as a comment by the Wang compiler. 


MULTIPLE FILE 


WANG: 


REMARKS: 


MULTIPLE FILE TAPE CONTAINS file-name-1 [POSITION integer-1] 
Cfile-name-2 [POSITION integer-2]] ... 
(not supported). 


This clause is not supported by this disk-based system. 


Ce ee ee er eiiieetintitintenientientiatndiantiontintiontoad 


imp-st = 


imperative-statement lit = literal ind-nm = index-name 


ve 


ITEM SYNTAX _AND CONVERSION REMARKS* 


APPLY IBM: APPLY WRITE-ONLY ON file-name-! [file-name-2] 
APPLY CORE~INDEX ON file-name-1! [file-name-2] 
APPLY RECORD-OVERFLOW ON file-name-! [file-name-2] 
APPLY REORG-CRITERIA TO data~name ON file-name 


WANG: (not supported). 


REMARKS: The APPLY clause is an IBM-implemented method of forcing optimal buffer and device 
space. Optimum space allocation is “automatically” handied by the VS Data 
Management System. 


* id = identifier imp-st = imperative-statement lit = literal ind-nm = index-name 


se 


TABLE A-3. DATA DIVISION CONVERSION FACTORS 
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ITEM 


SYNTAX AND CONVERSION REMARKS* 


LEVEL INDICATORS 


IBM: 


WANG: 


REMARKS : 


file description CD communication description 
sort file description RD report description 


ED file description 


Sorting on the Wang VS is supported by a Wang utility, SORT. This utility can be 
run directly or called dynamically. Direct COBOL SORT and REPORT WRITER features 
are not currently available. Reports can be produced by using the WRITE statement 
or the REPORT utility. 


A communication description is not used, since interactive workstation 1/0 
functions are handled directly. 


Caleta a ele ele ele eet ele ele eee al ae eee te eto ete eet ed de eee ee 


LEVEL NUMBERS 


WANG: 


REMARKS ; 


Levels 01-49, 66, 77 and 88. 
Level 66 is used with RENAMES clause. 


Levels 01-49, 77 and 88. 


Special level number 66 is not currently supported. 


Ne Nel ee Re a De ele ele ao oe aoe ele eee ee eee ee eae he ee ee he a ee ee ee nn ne ne ee eee ee ee 


DATA REFERENCE 


WANG; 


QUALIFICATION and CORRESPONDING 


(not supported). 


Currently, all data-names, paragraph-names and section-names must be unique 
(planned product enhancement). 
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imp-st = 


imperative-statement lit = literal ind-nm = index-name 


9€ 


BLOCK 


I8M: 


WANG: 


REMARKS: 


SYNTAX AND CONVERSION REMARKS* 


{ CHARACTERS} 
BLOCK CONTAINS [integer-1 TO] integer-2 {RECORDS } 


{RECORDS } 
BLOCK CONTAINS integer {CHARACTERS} 


IBM systems require this clause unless the physical record length equals the 
logical record length. 


Blocking is automatic for disk files with the Wang VS. Disk default blocking 
factor is 2K. Tape file blocking information is provided via this clause. If this 
clause is used, it must be in conjunction with a corresponding BUFFER SIZE clause. 


mam ewe we ewe eee ee eee ee ew ee ee a a a a a a a ee ee ee em eee ee we em ee te wee wwe mw 


RECORD 


WANG: 


REMARKS: 


RECORD CONTAINS Linteger-1 TO] integer-2 CHARACTERS 
RECORD CONTAINS [Linteger-1 TO] integer-2 [COMPRESSED] CHARACTERS 


Compression is a space-saving option. When specified, all character strings cf 3 
Or more repeated characters are compressed into 2 bytes. 


—aw ewe en mew eee eee ee BE ee ee Re He we Bee ew ee ee ee we we ew ee ee ewe ee wwe eee ew Rem 


RECORDING MODE 


WANG; 


REMARKS: 


RECORDING MODE IS mode 
If this clause is not coded, the IBM compiler will scan each record description 
entry to determine the correct mode. 


(not supported). 


The Wang compiler does not recognize this clause as it automatically scans each 
record description entry to determine the correct mode. 


LABEL RECORDS 


WANG: 


REMARKS: 


{RECORD IS } {OMITTED } 
LABEL {RECORDS ARE} {STANDARD } 


{data-name-! (data-name-2]} 
CTOTALING AREA IS data-name-3 TOTALED AREA IS data-name-4] 


{RECORD IS } {STANDARD} 
LABEL {RECORDS ARE} {OMITTED } 


This clause is required for every FD defined to the IBM system. The Wang compiler 
assumes standard label for all disk files. Tape labels may be either standard or 
omitted. 


imp-st = 


imperative-statement 1it = literal ind-nm = index-name 


Le 


VALUE OF 


CODE~-SET 


PICTURE 


a.) alphabetic 


IBM: 


WANG: 


REMARKS: 


IBM: 


WANG: 


REMARKS: 


imp-st = 


imperative-statement lit = literal 


SYNTAX AND CONVERSION REMARKS* 


{vit-1 } {lit-2 bdess 

VALUE OF data-name-} IS ({data-name-2} Cdata-name-3 IS {data-name-4}] 
VALUE OF C{FILENAME } J 

C{SPACE } ] 

C {data-name}] 

C {LIBRARY } IS {lit }] 

C {VOLUME } ] 

C{POSITION } ] 

C{INDEX AREA} ] 

C{DATA AREA } ] 


This clause is documentation only on the IBM system; optional on the Wang VS. 


If the information specifying filename, space, volume, etc., is not provided via 
this clause, the operating system will prompt the operator for it. 


Cel a Ne Reel Ne Doel Renae tee Ren lite tnednon Reet ee ee ee ee ee eee ee ee 2 2 2 ee ee ee 


(not supported). 
COODE-SET IS alphabet-name 


The CODE-SET clause is treated as a comment. All Wang VS data is stored in ASCIT 
format. 
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{PIC } 
{PICTURE} IS character-string 


{PIC } 
{PICTURE} IS character-string 


There are no syntax changes, but some symbols used in the picture clause require 
mention. 


Sle lh lea nae nel ae cae Rela Ae el el aed a ae eel eaten eae ae eel ale eee eee et ele eee ee eee ee eee eee 


symbol A only 
symbol A and B 


Symbol B represents a space. 
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ind-nm = index-name 


8 


SYNTAX AND CONVERSION REMARKS* 


ITEM 


b. 


) 


alphanumeric edited 


IBM: 


WANG: 


REMARKS: 


symbols A X98 0 
symbols A X98 0 / 


The stroke (/) represents a position where the character "/" is to be inserted. 


ae a eR ee a en eee ee ne 


-) 


numeric edited 


symbols BP V209, . * + - CR OB $ 
symbois B/PVZ09,.%* + ~ CR OB $ 


The stroke (/) represents a position where the character "/" is to be inserted. 


WANG ; 


REMARKS: 


{LEADING } 
SIGN IS {TRAILING} [SEPARATE CHARACTER] 


{LEADING } 
SIGN IS {TRAILING} CSEPARATE CHARACTER] 


If SEPARATE CHARACTER is not specified, the IBM default is to include the sign 
within the last byte; the Wang default adds another byte for the sign. 


aaa ee ee wn ee ee ee ed eee 


WANG: 


REMARKS: 


{SYNC } CLEFT J 

{SYNCHRONIZED} CRIGHT] 

Synchronization is performed, whether specified or not, for fields to be used in 
computation. 


{SYNC } CLEFT J] 
{SYNCHRONIZED} CRIGHT] 


This clause is treated as a comment since the Wang compiler will, by default, 
synchronize all 01 levels to full-word boundaries. Level 77s are not synchronized. 


ee ee a ee ee ee re ee ee ee re 


imp~-st = 


imperative-statement lit = literal ind-nm = index-name 


6E 


ITEM SYNTAX AND CONVERSION REMARKS*X 


USAGE IBM: USAGE IS {DISPLAY 

{ COMPUTATIONAL 
{COMP 

{ COMPUTATIONAL -1} 
{ComP-1 } 
{ COMPUTATIONAL -2} 
{COMP -2 } 
{ COMPUTATIONAL -3} 
{COMP-3 } 
{DISPLAY-ST } 
{ INDEX } 
{COMPUTATIONAL -4} 
{COMP-4 } 


ee ee 


WANG: USAGE IS {BINARY } 
{COMPUTATIONAL } 
{COMP } 
{DISPLAY } 
{DISPLAY-WwS } 
{INDEX } 


REMARKS: All COMP-3 and COMPUTATIONAL-3 usages may be changed to COMP or COMPUTATIONAL 
usage. All COMP or COMPUTATIONAL items of 32K or less may be changed to BINARY. 
Binary items are currently limited to two bytes (full word and double word support 
is planned). There is no corresponding Wang usage for COMP-1, COMP-2, and COMP-4, 
internal floating-point items. ODISPLAY-WS is used when defining workstation screen 
records, 


VALUE ISM: VALUE is lit 


{VALUE IS } 1it-1 CTHRU Tit-2] ([Clit-3 CTHRU 1it-4]] 
{VALUES ARE} 


WANG; {lit } 
VALUE IS {user-figurative-constant} 
{VALUE IS } {lit-1 $} (Ct THRU } { Vit-2 i] 


{VALUE are } {user-figurative-constant} [{THROUGH} {user-figurative-constant-2}] 


REMARKS: The VALUE can be defined as a user-figurative-constant. 


elie Reade eel ee ill Rei ie ee ee nena ee ee eee ee eee een ee oe eee eee eee ee eon 


RENAMES IBM: 66 data-name RENAMES data-name-2 [THRU data-name-3] 
WANG: (not supported). 


REMARKS: RENAMES is functionally similar to REDEFINES which is accepted by the Wang compiler. 
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* id = identifier imp-st = imperative-statement lit = literal ind-nm = index-name 


OV 


ITEM SYNTAX ANDO CONVERSION REMARKS* 


OCCURS IBM: FORMAT 1: 


[ {ASCENDING } 
OCCURS integer-! TIMES [{OESCENDING} KEY IS data-name-1 [data-name-3] ...] 


CINDEXED BY ind-nm-! Cind-nm-2]...] 
FORMAT 2: 
OCCURS integer-1 TO integer-2 TIMES [DEPENDING ON data-name-1] 


C{ASCENDING } 
C{DESCENDING} KEY IS data-name-2 [data-name-3] ...]... 


CINDEXEO BY ind-nm-1} [Lind-nm-2] ... ] 
FORMAT 3: 
QCCURS integer-2 TIMES COEPENOING ON data-name-1!) 


C{ASCENDING } 
{ {DESCENDING} KEY IS data-name~-2 [data-name-3] 


CINDEXED BY ind-nm-1 Cind-nm-2] ... ] 
WANG: OCCURS integer-1 TIMES CINOEXED BY ind-nm-1] [,ind-nm-2] ... ] 


REMARKS: ANS COBOL LEVEL 1 FORMAT 1 is supported, but the LEVEL 2 and IBM extensions -- 
ASCENDING, DESCENDING, and DEPENDING ON -- are not. 
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SEGMENTATION IBM: COBOL segmentation in the form of static overlays is available with the IBM 
operating systems (DS/MFT, OS/MVT, DOS), although it is little used on the larger 
machines which accommodate paging. 


WANG: COBOL-defined segmentation is not available with the Wang VS operating system. 


REMARKS: The same effect of COBOL-defined segmentation is achieved automatically by the Wang 
vS virtual memory system. 


* id = identifier imp-st = imperative-statement lit = literal ind-nm = index-name 


Lv 


TABLE A-4, PROCEDURE DIVISION CONVERSION FACTORS 


ITEM 
CORRESPONDING OPTION IBM: 
WANG: 
REMARKS: 
ADD/SUBTRACT 
MULTIPLE RESULTS IBM: 
WANG: 
REMARKS : 


* id = identifier 


SYNTAX AND CONVERSION REMARKS* 


{CORR } 
DD {CORRESPONDING} id-1 TO id-2 [ROUNDED] [ON SIZE ERROR imp-st] 


{CORR } 7 
SUBTRACT {CORRESPONDING} id-1 FROM id-2 [ROUNDED] [ON SIZE ERROR imp-st] 


{CORR } 
MOVE {CORRESPONDING} id-1 TO id-2 
(not supported). 


As noted in Table A-2, a11 data-names must be uniques therefore, the CORRESPONDING option 
is not available (planned product enhancement). 


eee ee ee deed teneiiedienenieaiend 


{id-1 } Cid-2 ] 
AOD {Tit-1} ([lit-2] ... TO id-m CROUNDED) [Lid-n [ROUNDED] ... [LON SIZE ERROR imp-st] 
{id-1 } Lid-2 ] 
SUBTRACT {lit-1} Clit-2] ... FROM id-m LROUNDED] [Lid-n [CROUNDED]] ... [ON SIZE ERROR imp-st] 


{id-1 } {Cid-2 ] 
ADD {1it-1} (1it-2] ... TO id-m CROUNDED] LON SIZE ERROR imp-st] 


{id-1 } Cid-2 ] 
SUBTRACT {1it-1} (C1lit-2] ... FROM id-m CROUNDED] [CON SIZE ERROR imp-st] 


Values may only be added to/subtracted from one identifier, not to/from a series of 
identifiers. The Wang format follows the ANS COBOL LEVEL 1 standard. 


imp-st = imperative-statement lit = literal ind-nm = index-name 


CV 


ITEM 


PERFORM (Format 4) 


IBM: 


WANG: 


REMARKS: 


REMARKS : 


SYNTAX AND CONVERSION REMARKS* 


{ind-nm-2} 
{ind-nm-1} {lit-2 } 
PERFORM procedure-name-1 [CTHRU procedure-name-2] VARYING {id~1} } FROM {id-2 } 
{ind-nm-5} 
{1it-3} {ind-nm-4} {1it-5 } 
BY {id-3 } UNTIL condition-1 (AFTER {id-4 } FROM {id-5 } 
{ind-nm-8} 
{lit-6} {ind-nm-7} {lit-8 } {1it-9} 
BY {id-6 } UNTIL condition-2 CAFTER {id-7 } FROM {id-8 } BY {id-9 } UNTIL condition-3]] 
{ THROUGH } {ind-nm-1} 
PERFORM procedure-nm-1] ({THRU } procedure-nm-2] VARYING {id-1 } 
{ind-nm-2} 
{id-2 } {id-3 } 


FROM {1it-] } BY {1it-2} UNTIL condition-1 


The command format that allows for testing of varying multiple conditions is not yet accepted 
by the Wang compiler. This function may be performed by coding multiple PERFORMs that will 


only be executed if a coded conditional test is passed (planned product enchancement). 


The Wang compiler will accept either form of THROUGH -- THRU or THROUGH. 
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(not supported). 


MOVE WITH CONVERSION data-name-1 TO data-name~2 [ON ERROR imp-st] 


This Wang-implemented verb will move free-form ASCII character strings containing a character 
representation of a number to a field with binary, computational or display usage. The move 
will decimal-align. Data-name-1 describes either an alphanumeric field or a numeric-edited 
field. The allowable edit characters include "+", "-", and the non-embedded blank. 
Data-name-2 describes a data item with a usage of binary, computational or display. 
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imp-st = imperative-statement lit = literal ind-nm = index-name 


ev 


EXAMINE/ INSPECT 


IBM: 


WANG: 


REMARKS: 
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SYNTAX AND CONVERSION REMARKS* 


{UNTIL FIRST} 
{ALL } 
EXAMINE id-1] TALLYING {LEADING } 1it-1 [REPLACING BY 11it-2] 


{ALL } 
{ LEADING } 
{FIRST } 


EXAMINE id-1 REPLACING {UNTIL FIRST} 1it-1 BY 1lit-2 


INSPECT id-1 TALLYING 


{ {{ALL } {id-3 } J} C I} 
{ { {LEADING} {lit-1} } C{BEFORE} {id-4 }]} 
{id-2 FOR{ } C{AFTER } INITIAL {1it-2}]} 
{ { CHARACTERS }C i} 


INSPECT id-1 REPLACING 


{ {id-6 } C {BEFORE} {id-7 }] } 
{CHARACTERS BY {1it-4} C{AFTER } INITIAL {1it-5}] } 
{TALL } } 
{{LEADING} {id-5 } {id-6 } C{BEFORE} {id-7 }]} 


{{FIRST } {1it-3} BY {lit-4} C{AFTER } INITIAL {1it-5}]} 


EXAMINE is IBM-implemented. INSPECT is standard ANS COBOL used for counting and/or replacing 
an individual character. A third format is available which will tally and replace with one 
statement. 


For example, if FIELD-ONE contains a value of bbb690, the I8M statement 
/// 


EXAMINE FIELO-ONE TALLYING ALL SPACES REPLACING BY ZEROES 


will yield a new value for FIELD-ONE of 000690 and the special register TALLY will contain the 
value 00003. 


The VS and ANSI approach is the INSPECT statement: 
INSPECT FIELD-ONE TALLYING COUNTER FOR ALL SPACES REPLACING BY ZEROES 
which will yield a new value for FIELD-ONE of 000690 and COUNTER will contain a value of 3. 


COUNTER must be defined in the Data Division and initialized before each use or the COUNTER 
values will be accumulated. 


imp-st = imperative-statement Jit = literal ind-nm = index-name 


vv 


TRANSFORM I6M: 


WANG: 


REMARKS: 


SYNTAX ANO CONVERSION REMARKSX 


{figurative-constant-1} 
{nonnumeric-literal-1 


TRANSFORM id-3 CHARACTERS FROM {id-1! 


(not 


TRANSFORM, 


supported). 


IBM- implemented, 


multiple INSPECTs. 


For example, the IBM statement 


TRANSFORM FIELD-TWO CHARACTERS FROM "ABC" TO "XYZ" 


where 


FIELO-TWO has 


YQXRXYZZ. 


The VS implementation takes the form: 


The 


INSPECT FIELD-TWO REPLACING ALL "A" BY "X". 
INSPECT FIELD-TWO REPLACING ALL “B" BY "Y", 
INSPECT FIELD-TWO REPLACING ALL "C" BY "Z". 


FIELO-TWO value changes after each INSPECT 


{figurative-constant-2} 
{nonnumeric-literal-2 } 


} TO {id-2 } 


can alter a string of characters. This verb may be replaced with 


an initial value of BQARASCC, will result in a new value in FIELD~-TwO of 


from the original BQARABCC to BQXRXBCC, then to 
YQXRXYCC, and then to YQXRXYZZ, the desired result. 


nn ee ee ee ee ee ee ee ee) 


WANG: 


REMARKS: 


OPEN 


OPEN 


REVERSED and NO 


{REVERSED ] 
{INPUT {file-name-1! [WITH NO REWIND]} 


COUTPUT {file-name-2 [WITH NO REWIND] } 


CI-90 {file-name-3 Dees 
CEXTEND {file-name-4 } 


{INPUT file-name-1 [file-name-6 ] ... 
{OUTPUT file-name-2 [file-name-7 ] ... 
{1-0 file-name-e [file-name-8 ] ... 
{EXTEND file-name-4 [file-name-9 J}... 
{SHARED file-name-5 [file-name-10]}... 


pt te ee 


statement tape support. 


SHARED MODE is discussed in Chapter 3. 


REWIND are used with tape files. 


They are not yet implemented for the OPEN 


imp- 


st = imperative-statement lit = literal 


Sv 
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ITEM SYNTAX AND CONVERSION REMARKS*X 


START IBM: START file-name [INVALID KEY imp-st] 
{EQUAL TO} 
START file-name USING KEY data-name { = } id CLINVALID KEY imp-st] 
WANG: START file-name 

{ {IS EQUAL TO } ] 

START file-name CKEY C[data-name-1] {IS = } data-name-2] 
C {IS GREATER THAN } ] 
C {IS > } ] 
C {IS NOT LESS THAN} J 
C {IS NOT < } ] 


CINVALID KEY imp-st] 
REMARKS: IBM's FORMAT 2 requires data-name to be the same as the data-name specified in the RECORD KEY 
clause, 
Wang's FORMAT 2 requires data-name-1, if used, to be an alternate key. 
SEEK IBM: SEEK file-name RECORD 
WANG: (not supported). 


REMARKS: This command serves as documentation only on the IBM system. 


{AT END } 
READ IBM: READ file-name CNEXT] RECORD CINTO id] {INVALID KEY} imp-st 
WANG: READ file-name [NEXT] RECORD [WITH HOLD J] CINTO id] [C{AT END } imp-st] 
CMOOIFIABLE] C{INVALID KEY} ] 


CALTERED ] 


CKEY IS data-name ] 
READ file-name RECORD [WITH HOLD] [CINTO id] CINVALID KEY imp-st] 


REMARKS: These formats include a11 combinations for indexed and sequential files. For an explanation 
of WITH HOLD, MODIFIABLE and ALTERED, refer to Chapter 3 and the Wang VS COBOL Lanquage 


Reference Manual. 
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* id = identifier imp-st = imperative-statement lit = literal ind-nm = index-name 


SV 


DISPLAY 


IBM: 


WANG: 


REMARKS: 


SYNTAX AND CONVERSION REMARKS* 


{CONSOLE } 
{lit-1} Clit-2] {SYSPUNCH } 
DISPLAY {id-1 } Lid-2 ] ... CUPON {SYSOUT }] 


{mnemonic-name} 
{id-1 } CLid-2 ] 
OISPLAY {1it-1} Clit-2] ... 


The choice of display medium is not available on the VS. All displays are directed toward the 
workstation screen. If a hard copy is needed, the screen display can be printed. 
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WANG: 


REMARKS: 


{word-2} {word-4} 
COPY library-name [SUPPRESS] [REPLACING word-1 by{lit-1] } Cword-3 BY {1it-1 }...]...] 
{id-2 } {id-1 } 


{IN} 
COPY file-name {OF} library-name. 


The COPY statement incorporates text into a COBOL source program. Wang does not support the 
COPY ... REPLACING option. 


ee a ee ee eee ein een 


IBM: 


WANG: 


REMARKS: 


{BEFORE} {integer-2 LINES}] {EOP } 
WRITE record-name [FROM id-1] [C{AFTER } ADVANCING {integer LINES }] [CAT {END-OF-PAGE} imp-st] 
{mnemonic-name }] 


{id-2 } { END-OF-PAGE} 
WRITE record-name [FROM id-1!] AFTER POSITIONING {integer} LINES [CAT {EOP } imp-st] 


WRITE record-name [FROM id-1] INVALID KEY imp-st 


{{id-2 } CLINE J } 
WRITE record-name [FROM id-1] (C{BEFORE} ADVANCING {{integer} CLINES] }) 
C{AFTER } { {PAGE } }J 


{{user-figurative constant} 
WRITE record-name CFROM id-1] [CLINVALID KEY imp-st] 


Wang printers, depending upon the model in use, can accomodate up to 158 characters per print 
line. Most VS printers support 132 character print lines. A file description of such a print 
file describes 132 usable characters. The first character need not be defined as unused 
filler to hold space for a write carriage control character. 


A WRITE, issued against a SHARED sequential file, releases the record to the buffer but does 
not write it to the disk until the buffer is filled. To prevent possible loss of these 
buffer-stored SHARED sequential records, a WRITE-THRU option is available which forces a write 
of the record as soon as the WRITE command is issued. 


wn a eee ees eee ee te eee eee eee eee ee eee eee ee ee ee we eee ee ae ee a ee a a a a ee ae ee ee ee ne a a a aa ee ee ee ee re errr err ee wr reer ewe 


imp-st = imperative-statement lit = literal ind-nm = index-name 


Lv 
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ITEM SYNTAX AND CONVERSION REMARKSX 


REWRITE TBM: REWRITE record-name [FROM id] [CINVALID KEY imp-st] 
WANG: REWRITE record-name (FROM id] CINVALID KEY imp-st] 


REWRITE record-name [FROM id] AFTER 


CALARM ] 
[SETTING CURSOR COLUMN {id-1 } {ROW } {id-2 }] 
C {integer-1} {LINE} {integer-2}] 
CROLL DOWN ] 
CROLL UP ] 
CERASE PROTECT J 
CERASE MODIFY J 


REMARKS: All additional clauses provided by the Wang format relate to screen-positioning control of the 
workstation files. Further discussion is in Chapter 4. 


Se ee en ee ee ee ee ee eee 


CLOSE IBM: CREELJ {NO REWIND} CREEL] {NO REWIND} 
CLOSE file-name-1 (CUNIT] [WITH {LOCK }] (Cfile-name-2 CUNIT] [WITH {LOCK hd]... 
{NO_ REWIND} {NO_REWIND} 
{LOCK } {LOCK } 
CLOSE file-name-1 (WITH {DISP }] {Cfile-name-2 [WITH {DISP }]]... 
{NO REWIND } {NO REWIND } 
{REEL} {LOCK } {REEL} {LOCK } 
CLOSE file-name-1 {UNIT} CWITH {POSITIONING} ] {file-name-2 {UNIT} [WITH {POSITIONING} ]] 
WANG: CLOSE file-name-1 (WITH LOCK] {file-name-2} (WITH LOCK].... 
C{REEL} CWITH NO REWIND] J C{REEL} CWITH NO REWIND]] 
CLOSE file-name-1 C{UNIT} CFOR REMOVAL ] 1] Cfile-name-2 C{UNIT} [CFOR REMOVAL ]]] 
{ {NO REWIND} j C {NO REWIND} ] 
CWITH {LOCK } ] {WITH {LOCK } ] 


REMARKS: The OISP and POSITIONING options in the IBM format, not available with the Wang format, could 
be used to specify positioning of the current tape volume. These options are not supported 
for Wang tape processing. 


Cee ee ee ee ee ed ted ee he te ee ee eR he ee ieee ee etait tedie tein 


* id = identifier imp-st = imperative-statement lit = literal ind-nm = index-name 


8v 


ACCEPT 


IBM: 


WANG: 


REMARKS ; 


SYNTAX AND CONVERSTON REMARKS* 


{SYSIN } 
{CONSOLE } 


ACCEPT identifier CFROM (mnemonic-name} ] 
Each data item to be accepted cannot exceed 80 characters. 


ACCEPT id-1 (Cid-2] 


The workstation prompted for identifier-1 if it is not available from procedure 


specifications. 


operator is 


A maximum of 64 characters per data item may be made available to the Wang system using the 
ACCEPT command. Up to 16 data items may be accepted from operator entries at the screen on 
through a procedure ENTER statement. 


awa wn een wawae ew eee eames manawa ww awww nnn wanna annw wren an wan wen www wm ew mew wn nee mewn wee w meme mmm we wee Me EO Oe EO OME MO Mw ew we ewe 


CANCEL 


TBM: 


WANG: 


REMARKS : 


{lit-1}} Clit-2] ... 
CANCEL {id-1 } Cid~-2 ] 


(not supported). 


A program can be cancelled through program code by calling a cancel subroutine. 


a a eae ear ee ne ee ee ee eee ee 


REMARKS : 


ENTRY 1it-1 CUSING id-1! [id-2] ... ] 


{not supported). 


If the programmer requires multiple entry points, 
(See Appendix. C as 


Each program can have only one entry point. 
a passed paramenter list could be utilized to indicate desired processing. 
an example. ) 


GOBACK 


GOBACK 


(not supported). 


EXIT PROGRAM provides the same end result action as does the GOBACK. 


sane wee wwe we Bee BO Ee OB ee Oe Oe ee ee ee ee eee ee nme a nm ewe eee ee we ee a wm wm oe a a a an ee ee eer ee ee ere em eee mee er ee emer w rere srr rrr 


imp-st = imperative-statement lit = literal ind-nm = index-name 


6V 


me ee ed 


NOTE 


TBM: 


WANG: 


REMARKS: 


SYNTAX AND CONVERSION REMARKS* 
NOTE. reserved word 


(not supported). 


NOTE is not an ANSI COBOL reserved word. All comment lines are indicated by a '*%' in column 7. 


www ew wom ww me we we me we me ewe ee me ew ew oe we ee eo we oe = we we ee ee a a a a a a ee em ee ee ee a a ee ee ee ee ee eee eee wwe ee ww tw we 


WANG: 


REMARKS: 


IF condition 


{statement-2 } 
THEN {NEXT SENTENCE} 


{ELSE } {statement-2 } 
{OTHERWISE} {NEXT SENTENCE} 


IF condition 


{statement-1 - } 
THEN {NEXT SENTENCE} 


{ELSE } {statement-2 } 
{NEXT SENTENCE} 


OTHERWISE is not accepted by the Wang compiler. 


— eR EO EEO OEE ENE TEE EE EE OER EER EE OO EE Ke ER Re OE eR OR EEK 


SEARCH 


IBM: 


WANG: 


REMARKS: 


{ind-nm} {imp-st-2 } 
SEARCH id-1 [VARYING {id-2 }] CAT END imp-st-1] WHEN condition-1 {NEXT SENTENCE} ... 


{imp-st~2 } 
SEARCH ALL id-1 CAT END imp-st-1] WHEN condition-1 {NEXT SENTENCE} 


(not supported). 


The SEARCH command, used with the table handling feature, is not yet available (planned 


product enhancement). 


ee eee eee eee eee ee ee eee ee ee ee eee 


ANS COBOL SORT/MERGE feature. 
Utility 


Sorting is handled in a Wang VS environment by the utility SORT. SORT enables the user to 
sort a file according to one or more record-embedded keys and to merge multiple sorted files. 
There is also a SORT subroutine which may be called from any COBOL program. 


swe Owe eee ee eee ee eee we OO Ew eM eee we ewe em eee eee ewe wee ee ee Oe OP SE we ewe meee ewe 


identifier 


imp-st = imperative-statement Tit = literal ind-nm = index-name 


os 


ITEM SYNTAX AND CONVERSION REMARKS* 
REPORT IBM: ANS COBOL REPORT WRITER feature. 
WANG: Utility or “hard coding". 


REMARKS: Reporting and report-formatting is performed by the Wang Utility REPORT. This utility allows 
the user to develop specialized reports, without programming, once the data file is available. 


{id-1 } Cid-2 ] {id-3 } {id-4 } Cid-5 J C{id~6 }] 
STRING/UNSTRING TBM: STRING {lit-1} (lit-2] ... DELIMITED BY {1it-3} [C{lit-4} [Clit-5] ... DELIMITED BY [{1lit-6}] 
{SIZE } C{(SIZE }] 


INTO id-7 CWITH POINTER id-8] CON QVERFLOW imp-st] 


{id-2 } {id-2 } 
UNSTRING id-1! (COELIMITED BY CALL] {1it-1} COR ALL] {l1it-2}] ... ] 


INTO id-4 (DELIMITER IN id-5] CCOUNT IN id-6] [Lid-7 [DELIMITER IN id-8] [COUNT IN id-9]}... 


CWITH POINTER id-10] [TALLYING IN id-11] CON OVERFLOW imp-st] 


Functionally, STRING provides juxtaposition of partial or complete contents of 2 or more data 
items into a single data item. UNSTRING causes contiquous data in a sending field to be 
separated and placed into multiple fields. 


WANG: (not supported). 


* id = identifier imp-st = imperative-statement lit = literal ind-nm = index-name 


APPENDIX B 


SAMPLE VS COBOL PROGRAM 
IDENTIFICATION DIVISION. 
PROGRAM-ID. DATENTRY. 
ENVIRONMENT DIVISION. 
FIGURATIVE-CONSTANTS. 


ONE IS "01", NOTAB IS "80", DIM IS "8C", HIDE IS "9C", 
MOD-BRITA IS "81", BRITE IS "84", TAB IS "AO". 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. 


SELECT CRT ASSIGN TO "DISPLAY", "DISPLAY", 
ACCESS IS RANDOM, 
FILE STATUS IS FILESTAT. 

SELECT DEFILE ASSIGN TO "DATAFILE", 
ORGANIZATION IS INDEXED, 
RECORD KEY IS ACCTNO:- , 
ALTERNATE RECORD KEY 01 IS CUSTOMER 


02 IS CITY WITH DUPLICATES 
03 IS STATE WITH DUPLICATES 
04 IS ZIP WITH DUPLICATES 


ACCESS IS DYNAMIC. 


DATA DIVISION. 
FILE SECTION. 


FD 


01 
FD 


01 


CRT 
LABEL RECORDS ARE STANDARD. 
DISPLAY-REC1 PIC X(1924). 
DEFILE 
RECORD CONTAINS 0100 CHARACTERS, 
LABEL RECORDS ARE STANDARD. 
DE-RECORD-AREA. 
02 ACCTNO PICTURE IS X(10). 
02 CUSTOMER PICTURE IS X(30). 
02 STREET PICTURE IS X(20). 


02 CITY PICTURE IS X(20). 
02 STATE PICTURE IS X(02). 
02 ZIP PICTURE IS S9(05) COMP. 


02 FILLER PICTURE IS X(15). 


WORKING-STORAGE SECTION. 


01 


01 


DESCREEN1 USAGE IS DISPLAY-WS. 
05 FILLER PIC X(43) ROW 6 COLUMN 20 

VALUE IS "FILE MAINTAINENCE PROGRAM FOR FILE DEMO *. 
05 FILLER PIC X(54) ROW 9 COLUMN 15 


VALUE IS “SELECT THE APPROPRIATE PFKEY FOR THE FUNCTION D 


"ESIRED.". 
05 FILLER PIC X(23) ROW 12 COLUMN 30 
VALUE IS "PFKEY FUNCTION" . 
05 FILLER PIC X(37) ROW 14 COLUMN 31 
VALUE IS "PF3 ADD ENTRIES TO THE FILE". 
05 FILLER PIC X(46) ROW 15 COLUMN 31 
VALUE IS "PF4 MAINTAIN THE ENTRIES IN THE FILE 
wv of 
05 FILLER PIC x(40) ROW 16 COLUMN 31 
VALUE IS "PF5 DELETE ENTRIES IN THE FILE". 
05 FILLER PIC X(35) ROW 18 COLUMN 31 
VALUE IS "PF16 EXIT FROM THE PROGRAM". 
DESCREEN2 USAGE IS DISPLAY-WS. 
05 FILLER PICTURE IS X (14) ROW 07 COLUMN 41 
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VALUE IS "ACCOUNT NUMBER". 


05 KEYFIELD1 PICTURE IS X(10) ROW 07 COLUMN 57 
RANGE IS FROM "A" TO "ZZZZZZZ2Z2" 
SOURCE IS ACCTNO OBJECT IS ACCTNO . 


05 LINE232 PIC X(79) ROW 23 COLUMN 2, 
SOURCE IS LINE23S. 
05 LINE242 PIC X(79) ROW 24 COLUMN 2, 
SOURCE IS LINE24S. 
01 FILESTAT. 
02 FILESTAT1 PIC X. 
02 FILESTAT2 PIC X. 
01 POSITION-SCREEN1. 
02 FILLER PIC X VALUE ONE. 
02 SAFILLER PIC X VALUE TAB. 
02 FILLER PIC X(2) VALUE ONE. 
01 DISPLAY-REC USAGE IS DISPLAY-WS. 


05 FILLER PICTURE IS X (31) ROW 01 COLUMN 26 
VALUE IS "*** WANG VS COPUTER SYSTEM ***", 
05 FILLER PICTURE IS X (30) ROW 05 COLUMN 03 
VALUE IS "SAMPLE DEMONSTRATION SCREEN...". 
05 FILLER PICTURE IS X (14) ROW 07 COLUMN 41 
VALUE IS "ACCOUNT NUMBER". 
05 ROW07-COL57 PICTURE IS X (10) ROW 07 COLUMN 57 
RANGE IS FROM "A" TO "ZZ2ZZ222Z222222" 
SOURCE IS ACCTNO OBJECT IS ACCTNO ° 
05 FILLER PICTURE IS X(08) ROW 09 COLUMN 11 
. VALUE IS "CUSTOMER". 
05 ROW09-COL21 PICTURE IS X (30) ROW 09 COLUMN 21 
SOURCE IS CUSTOMER OBJECT IS CUSTOMER ° 
05 FILLER PICTURE IS X(06) ROW 10 COLUMN 13 
VALUE IS "STREET". 
05 ROW10-COL21 PICTURE IS X(20) ROW 10 COLUMN 21 
SOURCE IS STREET OBJECT IS STREET ° 
05 FILLER PICTURE IS X(04) ROW 11 COLUMN 15 
VALUE IS "CITY". 
05 ROW11-COL21 PICTURE IS X(20) ROW 11 COLUMN 21 
SOURCE IS CITY OBJECT IS CITY . 
05 FILLER PICTURE IS X(05) ROW 11 COLUMN 44 
VALUE IS "STATE". 
05 Row11-COL51 PICTURE IS X(02) ROW 11 COLUMN 51 
SOURCE IS STATE OBJECT IS STATE ° 
05 FILLER PICTURE IS X(03) ROW 11 COLUMN 56 
VALUE IS "ZIP". 
05 ROW11-COL61 PICTURE IS 2(05) ROW 11 COLUMN 61 
SOURCE IS ZIP OBJECT IS ZIP ° 
05 LINE23 PICTURE IS X(77) ROW 23 COLUMN 03 
SOURCE IS LINE23S . 
05 LINE24 PICTURE IS X(77) ROW 24 COLUMN 03 
SOURCE IS LINE24S ° 
77° LINE23S PICTURE IS X(77) VALUE SPACES. 
77° LINE24S PICTURE IS X(77) VALUE SPACES. 
PROCEDURE DIVISION. 
START-—CODE. 


OPEN I-O CRT. 
MOVE POSITION-SCREEN1 TO ORDER-AREA OF DESCREEN1. 
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OPEN SHARED DEFILE 
MENU. 
DISPLAY AND READ DESCREEN1 ON CRT 
ONLY PFKEY 3, 4, 5, 16. 
IF FILESTAT2 = "P", CLOSE DEFILE, GO TO END-PROGRAM. 
MOVE SPACES TO LINE24S. 
IF FILESTAT2 = "D", MOVE DIM TO FAC OF ROWO7-COL57 
GO TO MODIFYR. 
IF FILESTAT2 = "E", MOVE DIM TO FAC OF ROWO7-COL57 
GO TO DELETER. 
MOVE "PRESS ENTER TO ADD ENTRY TO FILE, PF16 TO EXIT TO MENU 
- "." 70 LINE23S. 
MOVE SPACES TO DE-RECORD-AREA. 
ADDR-0. 
PERFORM RE-INIT. 
ADDR-1. 
DISPLAY AND READ DISPLAY-REC ON CRT, 
ON PFKEY 16, PERFORM START-FILE, GO TO MENU. 
MOVE HIDE TO FAC OF LINE24. 
WRITE DE-RECORD-AREA INVALID KEY, 
MOVE BRITE TO FAC OF LINE24, 
MOVE "ENTRY ALREADY EXISTS." TO LINE24S, GO TO ADDR-1. 
GO TO ADDR-0. 


MODIFYR. 
PERFORM RE-INIT. 
MOVE "ENTER=RETRIEVE BY KEY, PF2=FIRST ENTRY, PF3 
= "=NEXT ENTRY, PF16=EXIT" TO LINE23S. 
MOVE HIDE TO FAC OF LINE242, 
MCONT. 


DISPLAY AND READ DESCREEN2 ON CRT, 
PFKEY 2, 3, 16, 
ON PFKEY 16, 
MOVE MOD-BRITA TO FAC OF ROWO7-COL57 , GO TO MENU. 
MOVE HIDE TO FAC OF LINE242. 
IF FILESTAT2 = "@", GO TO EXACT-KEY. 
IF FILESTAT2 = "C", GO TO READ-NEXT. 
PERFORM START-FILE, IF FAC OF LINE242 = BRITE, GO TO MCONT. 
GO TO READ-NEXT. 
START-FILE. 
MOVE LOW-VALUES TO ACCTNO . 
START DEFILE KEY NOT LESS THAN ACCTNO , 
INVALID KEY MOVE BRITE TO FAC OF LINE242, 
MOVE "NO ENTRIES IN FILE." TO LINE24S. 
READ-NEXT. 
READ DEFILE NEXT WITH HOLD, INVALID KEY, 
MOVE BRITE TO FAC OF LINE242, 
MOVE "END OF FILE REACHED." TO LINE24S, 
GO TO MCONT. 
GO TO DISPLAY-MODSCREEN. 
EXACT-KEY. 
READ DEFILE WITH HOLD INVALID KEY 
MOVE BRITE TO FAC OF LINE242, 
MOVE "ENTRY NOT FOUND." TO LINE24S, 
PERFORM START-FILE, 
GO TO MCONT. 


53 


DISPLAY -MODSCREEN. 
MOVE "MAKE THE MODIFICATIONS AND PRESS ENTER TO REPLACE THE E 
= "NTRY," TO LINE23S. 
MOVE "OR PRESS PF16 TO EXIT WITHOUT REPLACING THE ENTRY." TO 
LINE24S. 
MOVE DIM TO FAC OF LINE24. 
DISPLAY AND READ DISPLAY-REC ON CRT, 
ON PFKEY 16, GO TO MODIFYR. 
REWRITE DE-RECORD-AREA. 
GO TO MODIFYR. 
DELETER. 
PERFORM RE-INIT. 
MOVE "ENTER THE KEY OF THE ENTRY TO BE DELETED, OR PRESS 
= "PF16 TO EXIT TO MENU." TO LINE23S. 
MOVE HIDE TO FAC OF LINE242. 
DCONT. 
DISPLAY AND READ DESCREEN2 ON CRT, 
ON PFKEY 16, PERFORM START-FILE, 
MOVE MOD-BRITA TO FAC OF ROW07-COL57 , GO TO MENU. 
MOVE HIDE TO FAC OF LINE242. 
READ DEFILE WITH HOLD INVALID KEY, 
MOVE BRITE TO FAC OF LINE242, 
MOVE "ENTRY NOT FOUND." TO LINE24S, 
GO TO DCONT. 
DISPLAY-DELSCREEN . 
MOVE "PRESS PF3 TO DELETE THIS ENTRY," TO LINE23S. 
MOVE "OR PRESS PF16 TO EXIT WITHOUT DELETING THE ENTRY." TO 
LINE24S. 
MOVE DIM TO FAC OF LINE24. 
DISPLAY AND READ DISPLAY-REC ON CRT, 
ONLY PFKEY 3, 16, ON PFKEY 16 GO TO DELETER. 
DELETE DEFILE. 
GO TO DELETER. 
END- PROGRAM. 


CLOSE CRT. 
STOP RUN. 
RE-INIT. 
MOVE SPACES TO ACCTNO ° 
MOVE SPACES TO CUSTOMER . 
MOVE SPACES TO STREET ° 
MOVE SPACES TO CITY ° 
MOVE SPACES TO STATE . 
MOVE ZERO TO ZIP . 
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APPENDIX C 
SAMPLE CONVERSION PROGRAMS 


The following programs are an example of a conversion from a 
batch-designed IBM COBOL program to a VS COROL program with no interactive 
features. The IBM program consists of a main program called "SAMPLE" and a 
subprogram called "BDLEDIT". The main program reads a file of variable length 
records with different record descriptions. It accumulates information and 
performs calculations for each group of records based on man number. Each 
group of records must contain an "A-type" record. If not, an error record is 
written. This program also performs calculations based on information 
contained in the records and passed to the program via a parm. 


The main program calls the edit program using the records and calculated 
data. The subprogram then produces an edited listing of the record 
information. 


These two programs, when converted to VS COBOL, require the code changes 
which are highlighted in the following VS source listings. Most changes can 
be handled through a global edit. These changes include converting: 


1. all single quotation marks (') to double quotation marks("), 

2. all COMP-3 usage to COMP usage, 

3. REMARKS section to remark lines (by coding an asterisk (*) in 
column 7), 

4, the SOURCE and OBJECT computer name to WANG-VS, 

5. all WRITE of print lines to include AFTER ADVANCING, and 

6. WRITE AFTER POSITIONING 0 LINES, which will cause top-of-form 
advancing, to WRITE AFTER ADVANCING PAGE, which will also result in 
a page advance. 


In addition, some logic changes are required to accomodate a single, 
rather than multiple, entry point in a subprogram, PARM passing and blocking 
factors. 

1. By testing a flag indicator set in the main program, certain edit 

program code sections can be conditionally executed. 


2. The parm definition is not set up automatically by the VS, but this 
parm information may be accepted by the program at run-time through 
a procedure or through an interactive response. The parm value is 
replaced by an ACCEPT statement in the VS program. The value 
accepted is described with usage of DISPLAY. It can then be moved 
to a numeric field with the VS extension MOVE WITH CONVERSION. This 
statement will convert the character string supplied in response to 
the ACCEPT getparm, into a number that can be used for computation. 
It will also decimal align and numerically justify the value. 
LENGTH-OF-PARM, a special value passed to the program from the IBM 
operating system, is not valid in the VS operating system 
environment since PARMS, in this program sense, are not supported. 


However, the value accepted by the VS program may be validity 
checked. 


3. Blocking information must be provided in an IBM operating 
environment by the program in the BLOCK CONTAINS clause, by the JCL, 
or by the label information. VS disk files are blocked in 2K 
increments, by default. 
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The procedure to execute the program converted to VS COBOL follows. 


PROCEDURE 

SET PROGLIB=DPLOBJ , PROGVOL=VOL444, INLIB=DPLDATA, 
INVOL=VOL444, OUTLIB=#DPLPRT, OUTVOL=VOL444 

RUN DPLCONL 

ENTER ACCEPT FACTOR1="'32.9"' 

ENTER ACCEPT FACTOR2="'16.3" 

ENTER RECORDS FILE=DPLCONV 

ENTER ERROUT FILE=DPLERR 

ENTER PRTREC FILE=DPLPRT 
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IBM COBOL Programs 


DIVISION. 

PROGRAM-ID. DPLCONL. 

AUTHOR. J.P. PROGRAMMER. 

DATE-WRITTEN. FEB. 28, 1979. 

DATE-COMPILED. MARCH 1, 1979. 

THIS PROGRAM WILL SCREEN CASES, CALCULATE TAXES 
AND TOTALS, AND YIELD A LIST SHOWING ERRORS (MISSING TAX 
MULTIPLIERS OR RECORDS NOT PRECEDED BY AN A-TYPE RECORD). 
THIS MAIN CONTROL MODULE WILL CALL IN AN EDIT MODULE. 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. 
OBJECT-—COMPUTER. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT OUTPUT-1 
SELECT ERRORS 


DATA DIVISION. 
FILE SECTION. 
FD OUTPUT-1 


RECORD CONTAINS 9 TO 35 CHARACTERS 


LABEL RECORDS ARE 
01 A-VALIDS. 


05 A-TIPE PICTURE X. 
05 A-RECINFO 
10 A-DEPTNO PICTURE S999. 
10 A-MANNO PICTURE S9(5). 
10 A-TAX-STATUS PICTURE S9. 
10 A-EARNINGS PICTURE S999V99, 
05 A-NAME PICTURE X(25). 
Ol B-VALIDS. 
05 B-TIPE PICTURE X. 
05 B-RECINFO 
10 B-DEPTNO PICTURE S999, 
10 B-MANNO PICTURE S9(5). 
10 B-BONUS PICTURE S999V99, 


FD ERRORS 


LABEL RECORDS ARE | 
01 ERROR-LIST. 


05 E-TIPE PICTURE X. 

05 E-DEPTNO PICTURE 999. 

05 E-MANNO PICTURE 9(5). 

05 E-BONUS PICTURE 9(5). 

05 FILLER PICTURE X(66). 
01 ERR-LIST PICTURE X(80). 


ad 


WORKING-STORAGE SECTION. 


77 PRIOR-DEPT-NO PICTURE S999 

77 RECS-LEFT PICTURE XXX 

77 TAXE PICTURE S9 

77 CHECK PICTURE S999V99 

77. A-REC-SW PICTURE X 
88 A-READ VALUE *A*, 

01 WSREC. 
05 DEPT-NO PICTURE S999 
05 MAN-NO PICTURE $9(5) 
05 NAME PICTURE x(25) 
05 EARNINGS PICTURE S999V99 
05 BONUS-1 PICTURE S999V99 
05 BONUS-2 PICTURE S999V99 
05 GROSS PICTURE S999V99 
05 FED-TAX PICTURE S999V99 

01 TOTREC 


05 T-DEPTNO PICTURE S999 

05 T-EARNINGS PICTURE S9999V99 
05 T-BONUS-1 PICTURE S9999V99 
05 T-BONUS-2 PICTURE S9999V99 
05 T-GROSS PICTURE S9999V99 
05 T-FED-TAX PICTURE S9999V99 


PROCEDURE DIVISION 

100-—START-HERE. 
OPEN INPUT OUTPUT-1 
OUTPUT ERRORS 


200-READ. 
READ OUTPUT-1 
AT END MOVE 'NO* TO RECS-LEFT. 
200—EXIT. 
EXIT. 
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VALUE ZEROES. 


VALUE ZERO. 
VALUE ZEROES. 
VALUE SPACE. 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


VALUE ZEROES. 
VALUE ZEROES. 
VALUE SPACES. 
VALUE ZEROES, 
VALUE ZEROES. 
VALUE ZEROES. 
VALUE ZEROES. 
VALUE ZEROES. 


ZEROES, 
ZEROES. 
ZEROES. 
ZEROES. 
ZEROES. 
ZEROES. 


300 


THEN MOVE SPACES TO ERR-LIST 


* TO ERR-LIST 


WRITE ERR-LIST 
MOVE 3 TO RETURN-CODE 
GO TO 550-STOP 
ELSE MOVE SPACES TO ERR-LIST 
MOVE "ERRORS: TYPES B AND C NOT PRECEDED BY TYPE A.* 
TO ERR-LIST 
WRITE ERR-LIST. 
MOVE A-DEPTNO TO PRIOR-DEPT-NO. 
MOVE B-MANNO TO MAN-NO. 


400-CONTROL. 
IF A-DEPTNO NOT = PRIOR-DEPT-NO 
THEN EERE ONS 222 UTE PERU eo TT 


Mi 
MOVE B-MANNO TO MAN-NO 
GO TO 425-BADRECCHECK 

ELSE NEXT SENTENCE. 

IF B-MANNO NOT = MAN-NO 

THEN PERFORM 525-COMPUTE THRU 525-EXIT 
MOVE B-MANNO TO MAN-NO 

ELSE NEXT SENTENCE. 


425-BADRECCHECK. 

IF A-TIPE = *A* 
THEN PERFORM 530-WSREC-FORM THRU 530-EXIT 
ELSE NEXT SENTENCE. 

IF A-READ 
THEN NEXT SENTENCE 
ELSE PERFORM 535-ERROR THRU 535-EXIT 

GO TO 430-PERFREAD. 

IF A-TIPE = ‘#Bf 
THEN MOVE B-BONUS TO BONUS-1 
ELSE NEXT SENTENCE. 

IF A-TIPE = 'c! 
THEN MOVE B-BONUS TO BONUS-2 
ELSE NEXT SENTENCE. 


430-PERFREAD. 
PERFORM 200-READ THRU 200-EXIT. 
IF RECS-LEFT = 'NO* 
THEN NEXT SENTENCE 
ELSE GO TO 400-CONTROL. 


IF A-READ 
THEN PERFORM 525-COMPUTE THRU 525-EXIT 
ELSE NE 


SENTENCE 


CLOSE OUTPUT-1 ERRORS. 


59 


COPY DISPEOJ. 


s DISPLAY *YOUR PROGRAM HAS REACHED END OF JOB 
STOP RUN. 


525-COMPUTE. 
IF A-READ 
THEN NEXT SENTENCE 
ELSE GO TO 525-EXIT. 
COMPUTE GROSS 
ROUNDED = EARNINGS + BONUS-1 + BONUS-2. 
COMPUTE CHECK 
ROUNDED = (GROSS - (TAXE * 
IF CHECK NOT GREATER THAN 0 
THEN MOVE ZEROES TO FED-TAX 
ELSE COMPUTE FED-TAX 
ROUNDED = CHECK * F 
MOVE DEPT-NO TO T-DEPTNO. 


ADD EARNINGS TO T-EARNINGS. 
ADD BONUS-1 TO T-BONUS-1. 
ADD BONUS-2 TO T-BONUS-2. 
ADD GROSS TO T-GROSS. 
ADD FED-TAX TO T-FED-TAX. 
MOVE SPACE TO A-REC-SW. 


525-EXIT. 
EXIT. 


530-WSREC-FORM. 
MOVE A-MANNO TO MAN-NO. 
MOVE A-TAX-STATUS TO TAXE. 
MOVE A-EARNINGS TO EARNINGS. 


MOVE A-NAME TO NAME. 
MOVE ‘At TO A-REC-SW. 
MOVE ZEROES TO BONUS-1. 
MOVE ZEROES TO BONUS-2. 
MOVE A-DEPTNO TO DEPT-NO. 

530-EXxIT, 
EXIT. 

535-ERROR. 


MOVE SPACES TO ERR-LIST. 
MOVE B-TIPE TO E-TIPE, 
MOVE B-DEPTNO TO E-DEPTNO. 
MOVE B-MANNO TO E-MANNO. 
MOVE B-BONUS TO E-BONUS. 
WRITE ERROR-LIST. 
535-EXIT. 
EXIT. 


575-STOP. 


kkk END OF LISTING BX RERRERKRERKEKEKRE EEK EREREREREEKEERE RE EE EREREREEE EERE EE ERKEEEKEERKREREREERKEEREREE: 


60 


iD DIVISION. 

PROGRAM-ID. DPLEDIT. 

F THIS IS A SUBPROGRAM OF DPLCONL AND IS USED TO 
PROVIDE HEADINGS AND AESTHETICALLY FORMAT OUTPUT. 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. 
OBJECT-COMPUTER. IB 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT EDOUT 


DATA DIVISION. 
FILE SECTION. 


-CHARACTERS 


LABEL RECORDS ARE OM} 


01 DETAIL-REC. 


05 FILLER PICTURE X(3). 
05 DEPT-NO PICTURE 9(3). 
05 FILLER PICTURE X(10). 
05 MAN-NO PICTURE 9(5). 
05 FILLER PICTURE X(10). 
05 NAME PICTURE X(25). 
05 FILLER PICTURE X(5). 
05 EARNINGS PICTURE $$$$.99. 
05 FILLER PICTURE X(8). 
05 BONUS-2 PICTURE $$$$.99. 
05 FILLER PICTURE X(8). 
05 BONUS-1l PICTURE $$$$.99. 
05 FILLER PICTURE X(8). 
05 GROSS PICTURE $$$$.99, 
05 FILLER PICTURE X(8). 
05 FED-TAX PICTURE $$$$.99. 
05 FILLER PICTURE X(5). 

01 TOTAL. 
05 EMPTY PICTURE 
05 T-DEPTNO PICTURE 
05 T-MESSAGE PICTURE X(24). 
05 FILLER PICTURE X(31). 
05 T-EARNINGS PICTURE $$,$$$.99. 
05 FILLER PICTURE X(6). 
05 T-BONUS-1 PICTURE $$,$$$.99. 
05 FILLER PICTURE X(6). 
05 T-BONUS-2 PICTURE $$,$$$.99. 
05 FILLER PICTURE X(6). 
05 T-GROSS PICTURE $$,$$$.99. 
05 FILLER PICTURE X(6). 
05 T-FED-TAX PICTURE $$,$$$.99. 
05 FILLER PICTURE X(3). 
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WORKING-STORAGE SECTION. 


77 
01 


01 


LINKAGE SECTION. 


77 
O01 


01 


LINE-CTR PICTURE S99 


MAIN-HEADING. 
05 FILLER PICTURE X( VALUE SPACES. 
05 MH PICTURE X(29) VALUE ‘LISTING OF 
05 FILLER PICTURE X(53) VALUE SPACES. 


SUB-HEAD. 

05 FILLER PICTURE X(3) VALUE 
05 Al PICTURE X(8) VALUE 
05 FILLER PICTURE X(5) VALUE 
05 A2 PICTURE x(6) VALUE 
05 FILLER PICTURE X(9) VALUE 
05 A3 PICTURE x(4) VALUE 
05 FILLER PICTURE X(26) VALUE 
05 a4 PICTURE X(12) VALUE 
05 FILLER PICTURE X(3) VALUE 
05 AS PICTURE X(12) | VALUE 
05 FILLER PICTURE X(3) VALUE 
05 a6 PICTURE X(12) | VALUE 
05 FILLER PICTURE X(3) VALUE 
05 a7 PICTURE X(14) VALUE 
05 FILLER PICTURE X VALUE 
05 a8 PICTURE X(12) | VALUE 


RECS-LEFT PICTURE XXX. 
WSREC. 


05 


DEPT-NO 
MAN-NO 
NAME 


EARNINGS 


BONUS-2 
BONUS-1 
GROSS 

FED-TAX 


PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 


s999 
S9(5) 
X(25). 
S999V99 
s999V99 
s999V99 
s999V99 
s999Vv99 


TOTREC 

05 T-DEPTNO 
05 T-EARNINGS 
05 T-BONUS-1 
05 T-BONUS-2 
05 T-GROSS 
T-FED-TAX 


PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 


$999. 

S$9999V99, 
S9999V99, 
S9999V99, 
S9999V99, 
S9999V99, 
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VALUE +61. 


DEPT PAYROLL DATA’. 


SPACES. 
‘MAN NO! 
SPACES. 
‘NAME? , 


SPACES. 
"SPEC BONUS *. 
SPACES. ; 
"BASIS BONUS *. 
SPACE. ; 
"GROSS EARNINGS’. 
SPACES, : 
"FTX WITHHELD. 


PROCEDURE DIVISION. 


OPEN OUTPUT EDOUT. 


210-WRITE-A-LINE. 
IF LINE-CTR GREATER THAN 57 

THEN PERFORM 220-WRITE~HEADINGS 

ELSE MOVE SPA Ss TO 


: 3 WSREC TO DETAIL-REC 
WRITE DETAIL-REC AFTER P 3 2 LINES 
ADD 2 TO LINE-CTR. 

GO TO 230-GOBACK. 


220-WRITE-HEADINGS. 
WRITE DETAIL-REC FROM MAIN-HEADING AFTER 
WRITE DETAIL-REC FROM SUB-HEAD AFTER Pi 
MOVE SPACES TO DETAIL-REC. 
‘ : JING WSREC TO DETAIL-REC. 
WRITE DETAIL-REC AFTER POSITIONING 3 LINES. 
MOVE 9 TO LINE-CTR. 


230-GOBACK. 


IF T-GROSS | C 
THEN GO TO ~GOBACK 
ELSE NEXT SENTENCE. 
MOVE SPACES TO TOTAL. 
PONDING TOTREC TO TOTAL. 
MOVE ‘DEPARTMENT TOTALS FOLLOW’ TO T-MESSAGE. 
WRITE TOTAL AFTER | 3 LINES. 
MOVE ZEROES TO T-DEPTNO ¢ C 
MOVE ZEROES TO T-EARNINGS 
MOVE ZEROES TO T-BONUS-1 | 
MOVE ZEROES TO T-BONUS-2 : 
MOVE ZEROES TO T-GROSS OF 
MOVE ZEROES TO T-FED-TAX 


310-WRITE-~HEADINGS. 
IF RECS-LEFT = 'NO ! 


THEN GO TO aeons 

ELSE NEXT SENTENCE. 
WRITE DETAIL-REC FROM MAIN-HEADING AFTER iG 0 LINES. 
WRITE DETAIL-REC FROM SUB-HEAD AFTER PO! 
MOVE 6 TO LINE-CTR. 
GO TO 230-GOBACK. 


2 LINES. 


*k*k END OF LISTING KREKKEKEEKKEKEEREKEKRERKKKEKEREKEKEEKKRKEEEREREKEEKEREREEKREKRREKERKEKRKREKKEES 
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VS COBOL Programs 


DIVISION. 

PROGRAM-ID. DPLCONL. 

AUTHOR. J. P. PROGRAMMER. 

DATE-WRITTEN. FEB. 20, 79. 

DATE-COMPILED. 

- FRIDAY MAR 16, 1979 

REMARKS. THIS PROGRAM WILL SCREEN CASES, CALCULATE TAXES 
AND TOTALS, AND YIELD A LIST OF ERRORS (AN ERROR 
OCCURS WHEN A TAX MULTIPLIER IS MISSING OR A GROUP 
OF RECORDS IS NOT PRECEDED BY AN A-TYPE RECORD) . 
THIS MAIN CONTROL MODULE WILL CALL IN AN EDIT MODULE. 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. 
OBJECT-—COMPUTER. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT OUTPUT-1 | 
SELECT ERRORS 


DATA DIVISION. 
FILE SECTION. 
FD OUTPUT-1 
RECORD CONTAINS 9 TO 35 CHARACTERS 
LABEL RECORDS ARE 
01 A-VALIDS. 


05 A-TIPE PICTURE X. 

05 A-RECINFO 
10 A-DEPTNO PICTURE S999, 
10 A~MANNO PICTURE S9(5). 


10 A-TAX-STATUS PICTURE S9, 
10 A-EARNINGS PICTURE S999V99, 


05 A-NAME PICTURE X(25). 
01 B-—VALIDS. 
05 B-TIPE PICTURE X. 


05 B-RECINFO 
10 B-DEPTNO PICTURE S999, 


10 B-MANNO PICTURE S9(5). 
10 B-BONUS PICTURE S999V99, 
FD ERRORS 


LABEL RECORDS ARE $ 
RECORD CONTAINS 80 CHARACTERS. 
01 ERROR-LIST. 


05 E-TIPE PICTURE X. 

05 E-DEPTNO PICTURE 999, 

05 E-MANNO PICTURE 9(5). 

05 E-BONUS PICTURE 9(5). 

05 FILLER PICTURE X(66). 
01 ERR-LIST PICTURE X(80). 
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WORKING-STORAGE SECTION. 
77° + PRIOR-DEPT-NO PICTURE S999 


77 RECS-LEFT PICTURE XXX 

77° =TAXE PICTURE S9 ZERO. 
77+ + =CHECK PICTURE S999V99 ZEROES, 
77 A-REC-SW PICTURE X SPACE. 


05 DEPT-NO PICTURE S999 ZEROES. 
05 MAN—NO PICTURE S9(5) ZEROES. 
05 NAME PICTURE X(25) SPACES. 
05 EARNINGS PICTURE S999V99 ZEROES. 
05 BONUS-1 PICTURE S999V99 ZEROES . 
05 BONUS-2 PICTURE S999V99 ZEROES. 
05 GROSS PICTURE S999V99 ZEROES. 
05 FED-TAX PICTURE S999V99 ZEROES, 
01 TOTREC 
05 T-DEPTNO PICTURE S999 VALUE ZEROES. 
05 T-EARNINGS PICTURE S9999V99 VALUE ZEROES. 
05 T-BONUS-1 PICTURE S9999V99 VALUE ZEROES. 
05 T-BONUS-2 PICTURE S9999V99 VALUE ZEROES. 
05 T-GROSS PICTURE S9999V99 VALUE ZEROES. 
05 T-FED-TAX PICTURE S9999V99 VALUE ZEROES. 
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PROCEDURE DIVISION. 
100-START-HERE. 
OPEN INPUT OUTPUT-1 
OUTPUT ERRORS. 
MOVE 1 TO ENTRY-FLAG. 


200-READ. 
READ OUTPUT-l  § _ 
AT END MOVE ®NO" TO RECS-LEFT. 
200-EXIT, 
EXIT. 


ON ERROR MOVE 999 TO RETURN-CODE 


GO TO 575 STOP 


ON ERROR MOVE 999 TO RETURN-CODE 
DISPLAY "BAD FACTOR2" 
GO TO 575-STOP. 
IF FACTOR1L-CONV IS LESS THAN 0 
OR FACTOR2-CONV IS LESS THAN 0 
THEN MOVE SPACES TO ERR-LIST 
MOVE "ERROR MESSAGE: 


TO ERR-LIST 


“Seeggemee eee: 


st 


WRITE ERR-LIST AFTER 
MOVE 3 TO RETURN-COD 
GO TO 575-STOP 
ELSE MOVE SPACES TO ERR-LIST 
MOVE "ERRORS: TYPES B AND C NOT PRECEDED BY TYPE A 
TO ERR-LIST 
WRITE ERR-LIST 
MOVE A-DEPTNO TO PRIOR-DEPT-NO. 
MOVE B-MANNO TO MAN-NO. 


400-CONTROL. 
IF A-DEPTNO NOT = PRIOR-DEPT-NO 
THEN PERFORM 525—COMPUTE THRU 525-EXIT 
MOVE 3 TO ENTRY-FLAG 


MOVE A-DEPTNO TO PRIOR~DEPT—NO 
MOVE B-MANNO TO MAN-NO 
GO TO 425-BADRECCHECK 
ELSE NEXT SENTENCE. 
IF B-MANNO NOT = MAN-NO 
THEN PERFORM 530-WSREC-FORM THRU 530-EXTT 
ELSE NEXT SENTENCE. 
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425-BADRECCHECK . 
IF A-TIPE = 
THEN PERFORM 530-WSREC-FORM THRU 530-EXIT 
ELSE NEXT SENTENCE. 
IF A-READ 
THEN NEXT SENTENCE 
ELSE PERFORM 535-ERROR THRU 535-EXIT 
GO TO 430-PERFREAD. 


IF A-TIPE = E 
THEN MOVE B-BONUS TO BONUS-1 
ELSE cam SEEN TENCE. 

IF A-TIPE = 
THEN MOVE B-BONUS TO BONUS-2 
ELSE NEXT SENTENCE. 


430-—PERFREAD. 

PERFORM 200-READ THRU 200-EXIT. 

IF RECS-LEFT = *NO® 
THEN NEXT SENTENCE 
ELSE GO TO 400-CONTROL. 

IF A-READ 
THEN PERFORM 525-COMPUTE THRU 525-EXIT 
ELSE NEXT SENTENCE. 

MOVE 3 TO ENTRY-FLAG 


500-STOP. 
CLOSE OUTPUT-1 ERRORS. 
MOVE 4 TO ENTRY-FLAG. 


510-COPY. 
COPY DISPEOJ. a 
DISPLAY “YOUR PROGRAM HAS REACHED END OF JOB.". 
STOP RUN. 


525-COMPUTE. 
IF A-READ 
THEN NEXT SENTENCE 
ELSE GO TO 525-EXIT. 
COMPUTE GROSS 
ROUNDED = EARNINGS + BONUS-1l + BONUS-2. 
COMPUTE CHECK 
ROUNDED = (GROSS -— (TAXE * 
IF CHECK NOT GREATER THAN 0 
THEN MOVE ZEROES TO FED-TAX 
ELSE COMPUTE FED-TAX 
ROUNDED = CHECK * 
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MOVE DEPT-NO TO T-DEPTNO. 
ADD EARNINGS TO T-EARNINGS. 
ADD BONUS-1 TO T-BONUS-1. 
ADD BONUS-2 TO T-BONUS-2. 
ADD GROSS TO T-GROSS. 
ADD FED-TAX TO T-FED-TAX. 
MOVE SPACE TO A-REC-SW. 
MOVE 2 TO ENTRY-FLAG. 


525-EXIT. 
EXIT. 

530-WSREC- FORM. 
MOVE A-MANNO TO MAN-NO. 
MOVE A-TAX-STATUS TO TAXE, 
MOVE A-EARNINGS TO EARNINGS. 


MOVE A-NAME TO NAME, 
MOVE *A*® TO A~REC-SW. 
MOVE ZEROES TO BONUS-1. 
MOVE ZEROES TO BONUS-2. 
MOVE A-DEPTNO TO DEPT-NO. 
530-EXIT. 
EXIT. 
535—-ERROR. 


MOVE SPACES TO ERR-LIST. 

MOVE B-TIPE TO E-TIPE. 

MOVE B-DEPTNO TO E-DEPTNO. 

MOVE B-MANNO TO E-MANNO. 

MOVE B-BONUS TO E-BONUS. 

WRITE ERROR-LIST AFTER ADVANCING 1 LINE. 
535-EXIT. 

EXIT. 


575-STOP. 
CLOSE OUTPUT-1 ERRORS. 
MOVE 4 TO ENTRY-FLAG. 


STOP RUN. 
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‘ION DIVISION. 

- DPLEDIT. 

< THIS IS A SUBPROGRAM OF DPLCONL AND IS USED TO 
PROVIDE HEADINGS AND AESTHETICALLY FORMAT OUTPUT. 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION 
SOURCE-COMPUTER. WANG-VS 
OBJECT—COMPUTER. ¥ VS. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT EDOUT ASSIGN 


DATA DIVISION. 

FILE SECTION. 

FD EDOUT | 
RECORD CONTAINS 132 CHARACTERS 
LABEL RECORDS ARE STANDARD. 

01 DETAIL-REC. 


05 FILLER PICTURE X(2). 
05 DEPT-NO-ED PICTURE 9(3). 
05 FILLER PICTURE X(10). 
05 MAN-NO-ED PICTURE 9(5). 
05 FILLER PICTURE x(10). 
05 NAME-ED PICTURE X(25). 
05 FILLE PICTURE X(5). 
05 EARNINGS-ED PICTURE $$$$.99. 
05 FILLER PICTURE X(8). 


05 BONUS-2-ED PICTURE $$S$$.99. 
05 FILLER PICTURE x(8). 
05 ) PICTURE $S$S$.99, 
05 PICTURE X(8). 
05 PICTURE $$$$.99. 
05 PICTURE xX(8). 
05 PICTURE $$$$.99. 
05 FILLER PICTURE xX(5). 
01 TOTAL. 
05 EMPTY PICTURE X(2). 
05 T-DEPTNO-ED PICTURE 9(3). 
05 T-MESSAGE PICTURE X(24). 
05 FILLER PICTURE X(31). 
05 T-EARNINGS-ED PICTURE $$,$$$.99. 
05 FILLER PICTURE X(6). 
05 T-BONUS-1-ED PICTURE $$,$$$.99. 
05 FILLER PICTURE x(6). 
(05 T-BONUS-2-ED PICTURE $$,$$$.99. 
05 FILLER PICTURE xX(6). 
05 T-GROSS-ED PICTURE $$,$$$.99. 
05 FILLER PICTURE x(6). 
05 T-FED-TAX-ED PICTURE $$,$$$.99. 
05 FILLER PICTURE x(3). 
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WORKING-STORAGE SECTION. 
PICTURE S99 


77 
01 


01 


LINKAGE SECTIO 


LINE-CTR 
MAIN-HEADING. 


05 FILLER PICTURE x(5 
05 MH PICTURE x(29) 
PICTURE x(53) 


05 


FILLER 


SUB-HEAD e 


05 


FILLER 
Al 
FILLER 
A2 
FILLER 
A3 
FILLER 
A4 
FILLER 
AS 
FILLER 
A6 
FILLER 
A7 
FILLER 
A8 


PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
PICTURE 


VALUE SPACES. 


X(2) VALUE SPACE, 

x(8) VALUE "DEPT-NO *®. 
x(5) VALUE SPACE. 

x(6) VALUE “MAN NO". 

x(9) VALUE SPACE. 

x(4) VALUE "NAME®., 

X(26) VALUE SPACE. 

X(12) VALUE "STD EARNINGS". 
xX (3) VALUE SPACE. 

X(12) VALUE “ORD VARIABLE". 
x(3) VALUE SPACE. 

X(12) VALUE "GRP VARIABLE". 
x(3) VALUE SPACE. 

X(14) VALUE "GROSS EARNINGS". 
X VALUE SPACE. 

X(12) VALUE "FTX WITHHELD". 


XXX. 


77 RECS-LEFT PICTURE 
01 WSREC. 
05 DEPT-NO PICTURE S999 
05 MAN-NO PICTURE S9(5) 
05 NAME PICTURE X(25). 
05 EARNINGS PICTURE S999V99 
05 BONUS-2 PICTURE S999V99 
05 BONUS-1 PICTURE S999V99 
05 GROSS PICTURE S999V99 
05 FED-TAX PICTURE S999V99 
01 TOTREC 
05 T-DEPTNO PICTURE S999, 
05 T-EARNINGS PICTURE S9999V99, 
05 T-BONUS-1 PICTURE S9999V99, 
05 T-BONUS-2 PICTURE S9999V99, 
05 T-GROSS PICTURE S9999V99, 
05 T-FED-TAX PICTURE S9999V99, 
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PROCEDURE DIVISION 


OPEN OUTPUT EDOUT. 


ON. 

210-WRITE-A-LINE. 

IF LINE-CTR GREATER THAN 57 
THEN PERFORM 220-WRITE-HEADINGS 
ELSE MOVE SPACES TO DETAIL-—REC 


MOVE FED D 
WRITE DETAIL-—REC AFTER. 
ADD 2 TO LINE-CTR. 

GO TO 230-EXIT. 
220-WRITE-HEADINGS. 

WRITE DETAIL-REC FROM MAIN-HEADING AFTER 

WRITE DETAIL-—-REC FROM SUB-HEAD AFTER 
MOVE SPACES TO DETAIL~REC. 


2 LINES 


2 LINES. 


WRITE DETAIL-REC AFTER 
MOVE 9 TO LINE-CTR. 
230-EXIT. 

EXIT. 


3 LINES. 
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300-WRITE-TOTAL. 
IF T-GROSS = 0 
THEN GO TO 320-EXIT 
ELSE NEXT SENTENCE. 
MOVE SPACES TO TOTAL. 


R OLLOW" TO T-MESSACE, 


WRITE TOTAL AFTER > G 3 LINES, 
MOVE ZEROES TO T-DEPTNO T-EARNINGS T-BONUS-L 
T~BONUS-2 T—GROSS T-FED-TAX. 


310-WRITE-—HEADINGS. 


IF RECS-LEFT = "NO" 

THEN GO TO 320-EXIT 

ELSE NEXT SENTENCE, 
WRITE DETAIL-REC FROM MAIN-HEADING AFTER AD 
WRITE DETAIL-REC FROM SUB-HEAD AFTER ADVAN 
MOVE 6 TO LINE-CTR. 


320-EXxIT. 


EXIT. 


CLOSE-UP, 
CLOSE EDOUT. 


V2 


> 2 LINES. 


APPENDIX D 
RESERVED WORDS 


PART 1 - Reserved Words Recognized by Wang, but not IBM Compiler 


ALARM NATIVE 
ALSO NODISPLAY 
ALTERED NO-MOD 
BINARY OBJECT 
BLOCKS ONLY 
BUFFER ORDER-AREA 
CODE-SET PFKEY 
COLLATING PFKEYS 
COMPRESSED PROTECT 
CONVERSION RANGE 
CURSOR ROLL 
DIRECT-ACCESS ROW 
DISPLAY-WS SEQUENCE 
ERASE SETTING 
FAC SHARED 
FIGURATIVE-CONSTANTS STANDARD-1 
INSPECT TIMES 
MEMBER VOLUME 
MODIFY WANG-VS 
MODIFIABLE 
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ACTUAL 

APPLY 

BASIS 
BEGINNING 
CBL 

CHANGED 
COMP~1 
COMP-2 
COMP-3 
COMP-4 
COMPUTATIONAL~1 
COMPUTATIONAL-2 
COMPUTATIONAL-3 
COMPUTATIONAL-4 
CONSOLE 
CORE-~ INDEX 
CSP 
CURRENT-DATE 
CYL-INDEX 
C01 

C02 

C03 

C04 

C05 

C06 

CO7 

C08 

CO9 

C10 

C11 

C12 

DEPTH 
DISPLAY-ST 
DISP 

EJECT 

ENDING 

ENTRY 
EXHIBIT 
FILE-LIMIT 
FILE-LIMITS 
GOBACK 

ID 

INSERT 
LABEL~RETURN 
MASTER- INDEX 
MORE-LABELS 
NAMED 
NOMINAL 
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PART 2 - Reserved Words Recognized by IBM, but not Wang Compiler 


NOTE 
NSTD-REELS 
OTHERWISE 
PASSWORD 
POSITIONING 
PRINT-SWITCH 
RECORD-OVERFLOW 
RECORDING 
RELOAD 
REMARKS 
REORG-CRITERIA 
REREAD 

SEEK 

SERVICE 

SKIP1 

SKIP2 

SKIP3 
SORT-CORE-SIZE 
SORT~FILE-SIZE 
SORT-MESSAGE 
SORT-MODE-SIZE 
SORT-OPTION 
SYSIN 

SYSIPT 

SYSLST 

SYSOUT 

SYSPCH 
SYSPUNCH 

501 

502 

TALLY 
TIME-OF—DAY 
TOTALED 
TOTALING 
TRACK 
TRACK-AREA 
TRACK-LIMIT 
TRACKS 
TRANSFORM 
UPSI-0O 

UPSI-1 

UPSI-2 

UPSI-3 

UPSI-4 

UPSI-5 

UPSI-6 

UPSI-7 
WHEN-COMPTLED 
WRITE-ONLY 
WRITE-VERIFY 


APPENDIX E 


COLLATING SEQUENCES 
EBCDIC Collating Sequence ASCII Collating Sequence 
rae (space) 1 (space) 
De (period) 2, (quotation mark) 
me (less than) (currency syinbol) 
4. ( (left parenthesis) 4. (apostrophe, single 
>) + (plus symbol) quotation mark) 
6. §$ (currency symbol) 5 ( (left parenthesis) 
7, oO (asterisk) 65. J (right parenthesis) 
8. ) (right parenthesis) ve a (asterisk) 
9. : (semicolon) 8. a (plus symbol) 
10.0 - (hyphen, minus symbol) 9, : (comma) 
ll. / (stroke, virgule, 10. = (hyphen, minus symbol) 
slash) 2 : (period, decimal point) 
FOS ; (comma) 12, / (stroke, virgule, slash) 
LS (greater than) 13-22: 0 through 9 
14 (apostrophe, single 237. : (semicolon) 
quotation mark) 24, (less than) 
15. = (equal sign) 25. = (equal sign) 
16% 7 (quotation mark) 26. (greater than) 
17-42. A through Z ZIAD 2s A through Z 
G32 O through 9 
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ACCEPT..... eae 3, 5, 6, 48, 55, 56 
ACCESS) ciiseeids.din% dese’ 4, 15, 16, 17, 22 
BDAM, ost Letc, Sod ear eae dale ss. a eewe 15 
BISAM..... Sea a tetera ee tee 15, 16 
BOAM tite oat octal Aan Suey eee 15 
DYNAMIC 2 iccaurs ade Seve ene wees eee 
OTSA: cc fe hu wie we hese ciwe 15, 16 
OSEAN ois sour Gee eh eee kote reese ees 15 
RANDOM. .....ceeeee &, 163 18.225. 23 
SEQUENTIAL. .......-.0000- 4, 15, 16 
VSAM aacaisecdincwpawebenwsrs toe Le 
ACTUAL KEV i .ss6<c-000 68 Da rinnaiekie 16, 31 
ADD...... Gaia ecd ieee tnd onan aero Al 
REUTER cong siege Sates detent geimadvedeches 3 
ANGST 33 scious ..1, 2, 3, 4, 29, 43, 49 
BPO yo tout sonata newman 34 
ASCII..... weeee2, 4, 8, 10,16, 26, 29 
scataaes Sond 37, 42, 73 
ASSICN 4 30cdees, panheuaiete dans 12, 30 
ALTERNATE [REY s y-0¢-sseaa aceatd- ve Seed oad 18 
ALTERNATE RECORD KEY...........000. 18 
BLOCK..... ee eet 18, 32, 36, 55, 71 
BLOCK SPLITTING. ........ceececeeee lO 
BUFFER SUZE c44 cs.dd ndw sauces ataantes 32 
CALI Gsies ee aedute boos css cbea tes audas is: 
CANCE settee oss Girt do eames oe we aiaes 48 
CARD READER.......-.0ceee- van deceee eG 
CATALOGUE. adic Bne tate iahaees eas eee 
CHAINING...... eats ea cichis ata tanansin Bea innnly 
CLOSE ccd t ede son ale weeds 3, 20, 46 
CODE-SETsceisc ei eae ediwees se Ben? 
COLLATING SEQUENCE............. 16, 73 
COMMAND PROCESSOR.......-..eee00. 2,5 
COMPRESSION........... oee019, 36, 72 
COMPUTE......... ee ere ere er 3 
CONSECUTIVE 
FILE ORGANIZATION.....4, 15, 19, 22 
CONTROL SS acer a ca cee sGwas enrsaa es 1 
CONTROL LANGUAGE.......-eeeeeeeee 3, 5 
CONVERTC..... cee cence OR ae 2, 4 
COPY (COBOL) «sees sees eh seaety 13, 46 
COPY MULILITY) wend ocwsauecaswun beeel 
COPY2200......... ese eatied enue acg De: Op LO 


CORRESPONDING... 2... ccerceecs 
CURSOR POSITION. .....cccesecees 


INDEX 


DATA CONTROL BLOCK (DCB)...... ewe 
DATA. DIVISION, 34 6s%s0e% see 225 235 35 
DATA MANAGEMENT SYSTEM (DMS)...15, 16 

17, 18, 19, 20, 30 


31, 32, 34 
DATENIRY . cesutcseoiseceau ee eeeaGel 
16) CA (0) Ace ee On re 12 

Dl oka tavae ous secuneee an bern 
PRINTER ii.6 Skwentna batesrass 11, 12 
TAPE i alaeta aera ada bees ...10, 12 


WORKSTATION 0.0: e-s.0-0 00 ws Gens 0 sceceee bey 22 
DELETE b:0 Visacea- 960Gb Pie ee A ew Ss 20 


DIRECT 

FILE PROCESSING.......ccccscevees 16 
DISPLAY (COBOL) 0 vs s.au'd dws vada ts 3, 46 
DISPLAY (PROCEDURE) ...........0.000- 5 
DISPLAY (UTILITY)....... rere erent S 
DISPLAY AND READ............ Sg 2242 25 
DIV EDB aio sieo crs: 5 0 wwe eie ws eer ee 
DUPLICATE KEY............% eC r ere Se 18 
DYNAMIC ACCESS............ ete Betta glee 
EBCDIC ss 06 Ses Ge.5,h6 4, 8, 10,. 16, 73 
EDITOR se s0ceews Sawin s wees eas coeeel 
PO RC vee el cone are Weta es Se eG area es 28 
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W. IN\(@} Customer Comment Form Title_VS COBOL CONVERSION GUIDE 


Publications Number _800-1204CC-02 
Help Us Help You... 


We've worked hard to make this document useful, readable, and technically accurate. Did we succeed? Only you can tell us! 
Your comments and suggestions will help us improve our technical communications. Please take a few minutes to let us 
know how you feel. 


How did you receive this publication? How did you use this Publication? 
[ Support or O Don’t know 0 sIntroduction O Aid to advanced 

Sales Rep to the subject knowledge 
[1 Wang Supplies O Other O Classroom text [ Guide to operating 

Division ae oe ee (student) instructions 
O From another fe SR ee O Classroom text O Asareference 

user (teacher) manual 
[1 Enclosed O Self-study O Other 

with equipment 5 ——$—— text 
Please rate the quality of this publication in each of the following areas. ees 

EXCELLENT GOOD FAIR POOR POOR 

Technical Accuracy — Does the system work the way the manual says itdoes? O a O O Cj 
Readability — Is the manual easy to read and understand? O O O O Oo 
Clarity — Are the instructions easy to follow? O 0 | a O 
Examples — Were they helpful, realistic? Were there enough of them? O O CO O O 
Organization — Was it logical? Was it easy to find what you needed to know? O O O O O 
illustrations — Were they clear and useful? O im O O O 
Physical Attractiveness — What did you think of the printing, binding, etc? O O Is O O 


Were there any terms or concepts that were not defined properly? O YO N Ifso, what were they? 


After reading this document do you feel that you will be able to operate the equipment/software?00 Yes OO No 
QO Yes, with practice 


What errors or faults did you find in the manual? (Please include page numbers) 


Do you have any other comments or suggestions ?_ 


Name SSS Street 

TPO ae St , 6 CY 

Dept/Mail Stop__ State/Country 

Company___ Zip Code__—SCSCSCtéC TeeePT:NN|” 
Thank you for your help. 


All comments and suggestions become the property of Wang Laboratories, Inc. Printed inU.S.A. 14-3140 3-82-5C 
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